[iGeTT]

Код:

procedure TForm1.sTrackBar1Change(Sender: TObject);
begin
  sProgressBar1.Position:=sTrackBar1.Position;
end;

Не забудь синхронизировать шаг.