Zeit in Label anzeigen.

[marabu]

Wenn die Uhr auch laufen soll, dann hier eine Lösung auf Basis eines Timers:

Delphi-Quellcode:

unit DemoFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TDemoForm = class(TForm)
    TimeLabel: TLabel;
    Timer: TTimer;
    procedure TimerTimer(Sender: TObject);
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

uses
  DateUtils;

procedure TDemoForm.TimerTimer(Sender: TObject);
begin
  TimeLabel.Caption := TimeToStr(Now);
  Timer.Interval := 1000 - MilliSecondOf(Now);
end;

end.

Ostergrüße vom marabu