[san-46]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var  M: TMemoryStatus;
begin
  GlobalMemoryStatus(M);
  Label1.Caption := FloatToStr(M.dwTotalPhys); //в байтах
end;