Работа с ProgessBar

[long399]

В программе таймер нужно сделать так, чтобы время отсчитываемое назад по одной секунде, отображалось в ProgressBar, т.е. когда время выйдет, то ProgressBar будет заполнен на 100%. Вот код:

procedure TForm7.Timer1Timer(Sender: TObject);
begin
label16.caption:=FormatDateTime('hh:nn:ss',dt);
 dt:=IncSecond(dt,-1);
 if dt=0 then
 begin
  TTimer(sender).Enabled:=false;
  showmessage('Заданное время вышло!');
 end;
end;

Подскажите пожалуйста, как связать это с ProgressBar.. Сам никогда с этим компонентом еще не работал и не знаю о нем.

[ZuBy]

При старте таймера

 ProgressBar1.max := trunc(dt);

А сам код вроде такой будет, в общем суть вот

procedure TForm7.Timer1Timer(Sender: TObject);
begin
label16.caption:=FormatDateTime('hh:nn:ss',dt);
 dt:=IncSecond(dt,-1);
 Progressbar1.Position := ProgressBar.Max- dt;
 if dt=0 then
 begin
  TTimer(sender).Enabled:=false;
  showmessage('Заданное время вышло!');
 end;
end;