Dann könntest du auch die TJvClock nehmen.
Die musst du dann bearbeiten.
Es müsste reichen,
Delphi-Quellcode:
function TJvClock.GetSystemTime: TDateTime;
begin
Result := SysUtils.Time;
if Assigned(FOnGetTime) then
FOnGetTime(Self, Result);
end;
procedure TJvClock.GetTime(var T: TJvClockTime);
var
MSec: Word;
begin
with T do
DecodeTime(GetSystemTime, Hour, Minute, Second, MSec);
end;
anzupassen.
Es müsste dann also anstatt der Systemzeit 12:00:00 - eingabe genommen werden.
Da brauchst du dann noch einiges an Rechen- und Denkarbeit, aber das sollte wohl machbar sein (mit probieren auf jeden Fall).
Edit: Alternativlösung: Die Uhr-mal-prozeduren rauskopieren und z.B. auf eine Paintbox (oder Bitmap+Bitblt) anwenden. Dann reicht ein Timer und ne Paintbox und evtl. ein Bmp