Изменение позиции TrackBar при нажатии Button

[Arxangelname]

Народ помогите как сделать так

ну к примеру
у меня есть TrackBar;
и есть кнопка Buton;

Я нажал на кнопку она сделала одно действие ну к примеру
Trackbar.position:= trackbar.position+1;

и все.

вопрос: как сделать чтобы если я нажал на кнопку мыши и когда ее держу не отпускаю это действие повторялось

Спасибо заранее

[GenniY]

Впишите цикл — пока нажата кнопка увеличивать позицию TrackBarА

[TwiX]

При нажатии - запускаем таймер.
По отжиманию - останавливаем.
В таймере:Trackbar.position:= trackbar.position+1;

Добавлено:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  timer1.Enabled:=true;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 ProgressBar1.Position:=progressbar1.Position+1;
end;