ProgressBar, который показывает прогресс истечения минуты

Доброго времени суток! Никак не могу понять, как связать ProgressBar со временем. Мне нужно, чтобы ProgressBar был на минимальном значении, когда минута начинается, а потом на максимальном, когда она заканчивается. После чего, он анулируется и так же происходит со следующей минутой.То есть, вот код для отображения времени в тексте Label1: Label1.Caption :=TimeToStr(now); А вот ProgressBar, который во-первых, не связан со временем, а работает отдельно (начиная свою работу с запуска программы), а во-вторых он не аннулируется, и ещё и в придачу после его максимального значения перестаёт работать процедура Label1.Caption :=TimeToStr(now);Буду весьма признателен, если поясните в чём дело, заранее спасибо огромное!
3 ответа

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(Now, Hour, Min, Sec, MSec);
  ProgressBar1.Position := Sec;
end;


Спасибо большое!


ProgressBar1.Max:=59;
забыл, не? ) По дефолту 100 стоит...