Чтобы узнать полный размер ОЗУ (RAM), можете воспользоваться функцией, написанной на языке Delphi:
//в байтах
function GetRAMSize: Cardinal;
var
MS : TMemoryStatus;
begin
GlobalMemoryStatus(MS);
Result := MS.dwTotalPhys;
end;
Ссылки в тему:
Как узнать свободный объём ОЗУ?
Установите ксенон — сделайте свой автомобиль заметнее!