Auslastung in Progressbar/gauge

[150gozilla]

Hallo liebe user
1)
Ich habe folgendes Problem und zwar habe ich bis jetzt so gemacht das meine RAM(Speicher)auslastung in einer Progressbar angezeigt wird.
Ich brauche dafür nur einen Timer und eine Progressbar

Delphi-Quellcode:

procedure TForm1.Timer2Timer(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;

Das kommt natürlich alles in den timer.
Ist es möglich diesen wert in eine gauge umzuschreiben?


2)
Gibts auch eine möglichkeit die CPU auslastung auszulesen ?