Readln gibt was aus?
Unit eingebunden und das im OnTimer Event geschrieben und geht:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := FloatToStr(CPUUssage);
end;
Wie und wo du das nun ausgibst, ist vollkommen unerheblich.