Simple Clock

type
  TfrmClock = class(TForm)
    lblDate: TLabel;
    lblTime: TLabel;
    tmrClock: TTimer;
    btnExit: TButton;
    procedure tmrClockTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmClock: TfrmClock;
  Count: real;

implementation

{$R *.dfm}

procedure TfrmClock.btnExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmClock.FormCreate(Sender: TObject);
begin
  Count := 0;
  lblTime.Caption := '';
  lblTime.Font.Name := 'Consolas';
  lblTime.Font.Size := 48;
  lblTime.Font.Color := clWhite;

  lblDate.Caption := '';
  lblDate.Font.Size := 16;
  lblDate.Font.Color := clWhite;

  lblDate.Caption := FormatDateTime('dddd, dd mmm yyyy', Now);
  lblTime.Caption := FormatDateTime('hh:nn:ss', Now);

  tmrClock.Interval := 1000;
end;

procedure TfrmClock.tmrClockTimer(Sender: TObject);
var dtNow: TDateTime;

begin
  //Count := Count + 0.1;
  //lblTime.Caption := FloatToStr(Count) + ' s';
  dtNow := Now;
  lblDate.Caption := FormatDateTime('dddd, dd mmm yyyy', dtNow);
  lblTime.Caption := FormatDateTime('hh:nn:ss', dtNow);
end;