Ich hab nen Normales Panel (Standardkomponente von D7)
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
Hour, Min, Sec, mSec: Word;
begin
Form1.Panel1.Caption := TimeToStr(Time); //Zeit ausgebeenn
DecodeTime(time, Hour, Min, Sec, mSec); //Zeit zerlegen
pgb.Position := Sec; //Sekunden Anzeige auf der ProgressBar
end;