Как и в предыдущем случае напишем для этого отедльную функцию (пример будет опять на Delphi):

function GetRAM: Cardinal;
var
  MS: TMemoryStatus;
begin
  MS.dwLength := SizeOf(MS);
  GlobalMemoryStatus(MS);
  Result := Round(MS.dwTotalPhys  / 1048576);
end;

Ну и теперь выводим результат функции на экран, а именно в Label:

Label1.Caption:=FloatToStr(GetRAM);

На этом всё! ;)