implementation
{$R *.dfm}
uses adCpuUsage;

procedure TForm2.Timer1Timer(Sender: TObject);
var i: Integer;
begin
    CollectCPUData;                  (*ПОЛУЧИТЬ ДАННЫЕ ДЛЯ ВСЕХ ПРОЦЕССОРОВ*)
    for i:=0 to GetCPUCount-1 do     (*показать данные для каждого процессора*)
    Memo1.Lines[i]:=Format('CPU #%d - %5.2f%%',[i,GetCPUUsage(i)*100]);
end;

initialization
ReportMemoryLeaksOnShutdown := true;

end.