Batasi Penggunaan Memory - Delphi 6

gunakan procedure ini jika memory usage bertambah terus (hingga memyebabkan windows crash)

procedure TformMain.TrimWorkingSet;
var
  MainHandle : THandle;
begin
  MainHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE,
GetCurrentProcessID);
  SetProcessWorkingSetSize(MainHandle, $FFFFFFFF, $FFFFFFFF);
  CloseHandle(MainHandle);
end;