http://www.torry.net/quicksearchd.php?String=CpuUsage&Title=Yes

이중에 AdCPUUsage VCL은 실제 2001년경에 본인이 직접 사용한적이 있습니다만..

AdCPUUsage Example 입니다. 문서에 있는것이고....
procedure TTestForm.TimerTimer(Sender: TObject);
var i: Integer;
begin
    CollectCPUData; // Get the data for all processors

    for i:=0 to GetCPUCount-1 do // Show data for each processor
        MInfo.Lines[i]:=Format('CPU #%d - %5.2f%%',[i,GetCPUUsage(i)*100]);
end;

위 소스를 빌더형으로 포팅한것으로 CPU가 1개만 있는것으로 가정한것으로 Prograss bar로 표시한것입니다.
void __fastcall TAnsiTerminalForm::CpuTimerTimer(TObject *Sender)
{
    CollectCPUData();
    CpuBar->Position  = (int)(GetCPUUsage(0) * 100.);
}
//---------------------------------------------------------------------------


도상곤 님이 쓰신 글 :
: 그러나 PerformanceGraph 만 넣어놓고 아무것도 못하고있습니다.
: PerformanceGraph->DataPoint(clGreen, random(200));
: 이렇게 하면 200까지의 랜덤의 숫자를 점을 찍는다는것과
: PerformanceGraph1->Update();
: 하면 왼쪽으로 이동하면서 찍힌다는것도 물론 알고있습니다.
:
: 그러나 정작 중요한 CPU상태를 알아보는것은 감을못잡고 있습니다.
: 어떻게 하면 좋을까요? ㅠ