Determine RAM usage in ProgressBar

uses ComCtrls

//

procedure TForm1.Timer1Timer(Sender: TObject);
var 
  x, y : real; 
  memory: TMemoryStatus;
  Auslastung: integer; 
begin
  memory.dwLength := SizeOf(memory); 
  GlobalMemoryStatus(memory); 
  x := memory.dwTotalPhys - memory.dwAvailPhys; 
  y := memory.dwTotalPhys; 
  Auslastung := round(((x/y)*100)); 
  ProgressBar1.Position := Auslastung; 
end;