Непрерывное перемещение элементов по ListBox

[kodov]

Здравствуйте.
Такой вопрос.
У меня на форме две кнопки передвижения элементов ListBox вверх и вниз.
Как сделать так, чтобы при нажатии на кнопку и удерживании, к примеру, в течение 1 сек. элемент перемещался вверх или вниз непрерывно?
Заранее спасибо.

[eoln]

Перемещение вниз. На форме Button1 и Timer1 (enabled по умолчанию false, Interval - скорость перемещения) Timer2 (enabled = false Interval = 1000)

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

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Timer1Timer(Sender);
  if not timer2.Enabled then timer2.Enabled := true;
end;

Procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: integer;
Begin
  i := listbox1.ItemIndex;
  if i < 0 then exit;
  if i > listbox1.Items.Count - 2 then exit;
  listbox1.Items.Insert(i, (listbox1.Items.Strings[i+1]));
  listbox1.Items.Delete(i+2)
End;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  timer1.Enabled := true;
end;

[kodov]

Спасибо за помощь.