...
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
btnPrimero.Tag := 1;
btnProximo.Tag := 2;
btnAnterior.Tag := 3;
btnUltimo.Tag := 4;
end;
procedure TForm1.ButtonsOnClick(Sender: TObject);
begin
with TButton(Sender) do
case Tag of
1: tuDataSet.First; 2: tuDataSet.Next; 3: tuDataSet.Prior; 4: tuDataSet.Last; end;
end;
procedure TForm1.tuDataSetAfterScroll(DataSet: TDataSet);
begin
Edit1.Text := tuDataSetCampo1.AsString;
ComboBox1.Text := tuDataSetCampo2.AsString;
end;
...