Eine uhr...

[scrat1979]

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