вопросик по TTimer

Использую Таймер следующим образом:

..
Timer1.Interval:=72000000;
Timer1.Enabled:=True;
..
procedure TForm1.Timer1Timer(Sender: TObject);
begin
..//каждые 20 часов выполняется;
end;
..

а вопрос такой, а как узнать, сколько времени уже прошло (осталось) ?

Например, просто запомнить время обработки предыдущего события или инициализации. Это не очень точно, но с такими интервалами, я думаю, погрешность будет несущественная.

nec 3540A

как узнать, сколько времени уже прошло (осталось) ?

от чего (до чего)?

автор

nec 3540A как узнать, сколько времени уже прошло (осталось) ? от чего (до чего)?

время от включения таймера:

Timer1.Enabled:=True;

до выполения процедуры:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
..//каждые 20 часов выполняется;
end;

и как показывать на форме оставшееся время?

(остающееся время до выполнения процедуры procedure TForm1.Timer1Timer(Sender: TObject);)

Сделай таймер на секунду и крути в нем счетик. Условия такое:

procedure TForm1.Timer1Timer(Sender: TObject);
const
 PERIOD = 20 * 60 * 60;
begin
 Inc(Count);
 if (Count mod PERIOD) = 0 then ShowMessage('Ïðåâåä! ïðîøëî 20 ÷àñîâ');
 Caption := Format('Îñòàëîñü %d ñåê', [PERIOD - Count mod PERIOD]);
end;

nec 3540A

время от включения таймера: Timer1.Enabled:=True;

Ты думаешь, что TTimer запоминает время, когда у него выставили Enabled, чисто на всякий случай - вдруг nec 3540A это понадобится?
Подсказка: если из текщего времени вычесть сохраненное в некий момент в прошлом, то получится сколько прошло времени с того момента.

nec 3540A

до выполения процедуры: procedure TForm1.Timer1Timer(Sender: TObject); begin ..//каждые 20 часов выполняется; end;

До выполнения процедуры - ты не узнаешь - злой админ может убить твой процесс, а может и не убить. ;)
А вот для вычисления предполагаемого оставшегося времени - можно из 20 часов вычесть то, что уже прошло.

nec 3540A

и как показывать на форме оставшееся время?

TLabel ?