//в байтах
function GetFreeRAM: Cardinal;
var
MS : TMemoryStatus;
begin
GlobalMemoryStatus(MS);
Result := MS.dwAvailPhys;
end;
Ссылки в тему:
Как узнать размер ОЗУ?
Проверенные временем Афоризмы о любови — почитайте умные мысли великих людей