بازم سلام

کدی برای اینکه بفهمید برنامه تان چه مقدار از رم را گرفته است

function MemoriaRAMLibera: DWORD;
var
StatoMemoria: TMemoryStatus;
begin
StatoMemoria.dwLength := SizeOf (StatoMemoria);
GlobalMemoryStatus (StatoMemoria);
Result := StatoMemoria.dwAvailPhys;
end;