Freier Speicher in Delphiprogrammen ermitteln?

[Mavarik]

Hallo Zusammen...

Simples Programm:

Delphi-Quellcode:

Var
  f : array[0..100] of TByteDynArray;

procedure TForm49.Button2Click(Sender: TObject);
Var
   M : TMemoryStatus;
   i : Integer;
begin
  for i:=0 to 100 do
    begin
      Setlength(F[i],1024*1024*256);
      GlobalMemoryStatus(M);
      Memo1.Lines.add(Inttostr(M.dwTotalPhys div 1024)+' / '+Inttostr((M.dwAvailPhys) div 1024));
      Application.Processmessages;
    end;
end;

Ausgabe:
4194303 / 4194303
4194303 / 4194303
4194303 / 4104164
4194303 / 3840000
4194303 / 3580524

Peng - Out of Memory... Warum?

Wo ist der Trick?

Grüsse Mavarik