procedure TForm1.Button1Click(Sender: TObject);
var MS: TMemoryStatus;
begin
GlobalMemoryStatus(MS);
Form1.Label1.Caption := FormatFloat('"Mémoire physique : "#,#" Mo"', (MS.dwTotalPhys / 1024)/1024);
end;