will do, should save using Crt, and will need a Writeln outside the loop.

I've just trying to make a protected mode program.  I then got this
problem, which I can rewrite as the program below.

Basically, the program I write need to GetMem/allocating variables up to
100,000 times.  When I try to GetMem 2000 times, it runs OK, without any
memory leaking.  But when I try to do it more, it just leaks.

Any help or pointer is so appreciated...  Thanks.

--------
-Eddy

{******************* The Program ****************************}
uses crt;

const size=4000;

type PArr = ^TArr;
     TArr = Array [1..1024] of byte;

var a:array [1..size] of PArr;
    i:longint;
begin
  clrscr;
  writeln('Memory Before : ', MemAvail);

  { allocating memory }
  for i:=1 to size do
  begin
    GetMem(a[i], SizeOf(TArr));
    gotoxy(1,2);
    writeln('Memory Available : ', MemAvail, ' No : ', i);
  end;

  { deallocating memory }
  for i:=1 to size do
  begin
    FreeMem(a[i], SizeOf(TArr));
    gotoxy(1,2);
    writeln('Memory Available : ', MemAvail, ' No : ', i);
  end;

If somebody compile (to protected mode) the code I attached to the
original post, he will get a run time error 203 when the number of calling
to GetMem is about 2000, even though there is still some memory space
left...

I tried it in my Univ's PC, and it stop after 2113 calling to GetMem,
displaying "run time error 203" message, although there is still free 10Mb
memory left.

So the problem persists...

--
-Eddy

However, you should be aware that an allocation can fail in pmode even
if memory is available - you need to have enough handles available,
and I think you only get around 2000 in a typical run.  Each handle is
used by a block of memory; allocations take a whole block if they're
large, or part of a block if they're small.  You might want to look in
the manual at the memory manager variables HeapXXXX to tune things and
get your program to work.