procedure TForm1.Button1Click(Sender: TObject);
var
Status : TMemoryStatus;
begin
Status.dwLength := sizeof( TMemoryStatus );
GlobalMemoryStatus( Status );
Memo1.Lines.Add('Toplam hafiza kullanim yüzdesi:' + IntToStr(Status.dwMemoryLoad));
Memo1.Lines.Add('Toplam hafiza büyüklügü (byte):' + IntToStr(Status.dwTotalPhys));
Memo1.Lines.Add('Kullanilabilir hafiza' + IntToStr(Status.dwAvailPhys));
Memo1.Lines.Add('Toplam Page File büyüklügü (byte):' + IntToStr(Status.dwTotalPageFile));
Memo1.Lines.Add('Kalan Page File (byte):' + IntToStr(Status.dwAvailPageFile));
Memo1.Lines.Add('Toplam virtual memory (byte):'+ IntToStr(Status.dwTotalVirtual));
Memo1.Lines.Add('Kalan virtual memory (byte):' + IntToStr(Status.dwAvailVirtual));
end;