Вопрос, таймер, часы, функции.

[Geko38]

Доброго времени суток форумчане. Подскажите кто может, вопрос такой, на форме есть 2 label в одной прописано текущее время системы и обновляется в реальном времени, а во второй Label нужно прописать функцию чтобы основываясь на 1 label отчитывала секунды, т.е label2 = 0 как только нажать кнопку ну или без кнопки чтоб label2 вел отчёт секунд, подскажите, пожалуста, а то с часами так и не могу разобраться...

[Stilet]

Если я правильно понял:

uses DateUtils,...
...
Label2.Caption:=IntTostr(SecondOf(а тут дата-время, от которых нуна секунды получить))

[Geko38]

Опишу более подробно:

procedure TForm11.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= true;
end;

procedure TForm11.Timer1Timer(Sender: TObject);
begin
label1.Caption:= timetostr(now);

[IMG]C:\Users\Iq\Desktop\Новая папка\Новый рисунок.bmp[/IMG]

Вот при нажатии на кнопку 1 начинают тикать часики, а при нажатии на кнопку 2, нужно чтобы в label2 при изменении в Label1 на 1 секунду в label2 сработала функция +1. С функцией SecondOf что то не получается.

[Geko38]

Ой вот скрин программы...