Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как получить весь размер системной памяти?

01.01.2007
function GetMemoryTotalPhys : DWord; 
var
memStatus
: TMemoryStatus;
begin
memStatus
.dwLength := sizeOf ( memStatus );
GlobalMemoryStatus ( memStatus );
Result := memStatus.dwTotalPhys;
end;

Взято из https://forum.sources.ru