timetostr - ?

[Evgenii]

С помощью процедуры timetostr, время можно отобразить например в tlabel. Но время не меняется, а остается в первоначальном виде. Что нужно сделать для того чтобы часы, минуты, секунды изменялись соответственно текущему времени?

[Neeter]

киньте на форму таймер и в событии onTimer присваивайте текущее время:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Caption := TimeToStr(Time);
end;

[Evgenii]

Получилось, Спасибо!

[Evgenii]

-----------