Sürücüdeki Boş Yer ve Kullanılabilir Belleğin Bulunması [Delphi]

[Logic]

//Forma bellek ve bosyer adında 2 label koyun dememe gerek
//olmadığı için demiyeceğim.
procedure TForm1.Button1Click(Sender: TObject);
var
MS: TMemoryStatus;
begin
GlobalMemoryStatus(MS);
Bellek.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024); //kullanılabilir bellek
BosYer.Caption:=FormatFloat('###,###" MB"',DiskFree(0) div 1048576); //sürücüdeki boş yer
end;