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