function GetMemoryTotalPhys: DWord;
var
memStatus: TMemoryStatus;
begin
memStatus.dwLength := sizeOf (memStatus);
GlobalMemoryStatus(memStatus);
Result := memStatus.dwTotalPhys;
end;
Статья Как получить весь размер системной памяти раздела Синтаксис Память и Указатели может быть полезна для разработчиков на Delphi и FreePascal.
