Bellek Kullanımı

procedure TForm1.Timer1Timer(Sender: TObject);
var m:TMEMORYSTATUS;
begin
GlobalMemoryStatus (m);
Label1.Caption := 'Bellek Kullanımı =';
Label2.Caption := 'Toplam RAM =';
Label3.Caption := 'Boş RAM =';
edit1.Text:='%'+IntToStr(m.dwMemoryLoad);
edit2.Text:=FloatToStr(m.dwTotalPhys/1024.0/ 1024.0) + ' MB';
edit3.Text:=FloatToStr(m.dwAvailPhys/1024.0 /1024.0) + ' MB';
end;
end.