Имитировать на экране работу электронных часов

unit Dclock;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
 
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
const
  stDay : array[1..7] of string[11] =
    ('воскресенье','понедельник','вторник',
     'среда','четверг','пятница','суббота');
 
  stMonth : array[1..12] of string[8] =
    ('января','февраля','марта',
     'апреля','мая','июня','июля',
     'августа','сентября','октября',
     'ноября','декабря');
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
var
 Present: TDateTime;      // текущая дата и время
 Year, Month, Day : Word; // год, месяц и число, как
                 // отдельные числа
begin
 Present:= Now; // получить текущую дату
 DecodeDate(Present, Year, Month, Day);
 Label2.Caption := 'Сегодня '+IntToStr(Day)+ ' ' +
  stMonth[Month] + ' '+ IntToStr(Year)+
  ' года, '+ stDay[DayOfWeek(Present)];
 // настроить и запустить таймер
 Timer1.Interval := 1000; // период сигналов таймера 1 с
 Timer1.Enabled := True; // пуск таймера
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var Time : TDateTime; // текущее время
begin
 Time := Now(); // получить системное время
 Label1.Caption := FormatDateTime('hh:mm:ss',Time);
end;
 
end.