Секундомер

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure ShowTime;
  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.ShowTime;
var Time : TDateTime; 
begin
  Time := Now(); 
  Label1.Caption := FormatDateTime('hh:mm:ss',Time);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   ShowTime;
end;
 
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; 
  Timer1.Enabled := True; 
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
   ShowTime; 
end;
 
end.