procedure TForm1.Button1Click(Sender: TObject);
Var Memory : TMemoryStatus;
begin
Memory.dwLength := SizeOf(Memory);
GlobalMemoryStatus(Memory);
Label1.Caption:='Memoire totale : '+IntToStr(Memory.dwTotalPhys)+' octets';
Label2.Caption:='Memoire libre : '+IntToStr(Memory.dwAvailPhys)+' octets';
end;