Ejecutar código mientras pulso un botón

[marcoszorrilla]

Mira este ejemplo, necesitas un Timer y aquí tienes el código:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Adoquery1.Next;
end;

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;

Un Saludo.