Stefan hat dich schon alles geschrieben.
Hier nochmal inkl. ProgressBar-Code:
Delphi-Quellcode:
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;