CPU Auslastung auslesen

[mind87]

Guten Abend,

habe vor eine Programm zu schreiben, das diverse Systeminformationen ausliest u.a. CPU und RAM Auslastung. Einen Code für die RAM Auslastung, sowohl als grafische als auch werte basierend habe ich schon.

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  x, y: real;
  memory: TMemoryStatus;
  Ram_ani, Ram : integer;
  aRam:string;

begin
  memory.dwLength := SizeOf(memory);
  GlobalMemoryStatus(memory);
  x := memory.dwTotalPhys - memory.dwAvailPhys;
  y := memory.dwTotalPhys;
  Ram:=round(((x/y)*100));
  str(Ram, aRam);
  edit2.text:=aRam;
  Ram_ani := round(((x/y)*100));
  ProgressBar1.Position := Ram_ani;

end;

Kann mir jemand helfen dies auch für die CPU Auslastung zu schaffen? Im Forum habe ich zwar einen Code gefunden allerdings wird dort die Auslastung der einzelnen Prozesse ausgegeben. Bin in Sachen Delphi-Programmieren noch eher ein Grünschnabel von daher wäre ich mit einem einfachen Lösungsweg zufrieden bei dem das Ziel erreicht wird (auch wenns quick and dirty ist).

Hoffe jemand kann mir weiterhelfen.

Gruß Daniel