Помогите написать часы. ( или Календарь)

[vitya-1988]

Дело в том, что часы должны идти в N раз быстрее реального времени.
Например, за реальные пять минут в написанных часах проходит 1 час, соответственно, два реальных часа равняются суткам. Как-то так

[type_Oleg]

Ну, примерно так:
фрагмент кода модуля формы, там в начале - понятно что, неохота городить кучу букаф

var
  Form1: TForm1;
  N:Double;
  tim:TDateTime;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 N:=StrToFloatDef(Edit1.Text,0);
 tim:=Now;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 tim:=tim+N*Timer1.Interval/86400000;
 Label2.Caption:=DateTimeToStr(tim);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 tim:=Now;
 N:=1;
end;

end.