Hier mal ein Einstieg, wobie die Funktion FormatDateTime noch einiges an der Ausgabe ändern könnte...
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var NewDateTime : TDateTime;
Zeitzone : Integer;
begin
ZeitZone := +3;
NewDateTime := ((now * 24) + (ZeitZone)) / 24;;
label1.Caption := DateTimeToStr(NewDateTime);
end;
Jetzt müsstest Du selber zurecht kommen, oder? Du brauchst also nur ein Timer und ein Label, um meine Anregung zu testen...
SCRaT