Desplazarme por un DBgrid

[Javier_A]

procedure TForm4.ReparacionAfterScroll(DataSet: TDataSet);
begin
leer();
end;

procedure Tform4.leer();
var
pieza,pedido,linea,codlong: string;
Rdo: Variant;
begin
blanco();
pieza:=D4.columns[5].Field.Value;
pedido:=D4.columns[3].Field.Value;
linea:=D4.columns[4].Field.Value;
codlong:=pedido+linea+'RE';
Rdo:=Reparacion.Locate('Codlargo',codlong,[]);
codlarg:=codlong;
if Rdo=true Then
begin
Edit1.Text:=Reparacion.fieldbyname('obs_1').AsString;
Edit2.Text:=Reparacion.fieldbyname('obs_2').AsString;
Edit3.Text:=Reparacion.fieldbyname('obs_3').AsString;
Edit4.Text:=Reparacion.fieldbyname('obs_4').AsString;
Edit5.Text:=Reparacion.fieldbyname('obs_5').AsString;
end;
If rdo=false then
showmessage('Avisa a Javier, ha habido un problema');

If Reparacion.fieldbyname('estado').AsString='reparado' then
begin
DateTimePicker1.Enabled:=True;
RadioButton3.Checked:=True;
RadioButton4.Checked:=False;
DateTimePicker1.Date:=Reparacion.fieldbyname('fechaestado').AsDateTime;
end
else
begin
RadioButton3.Checked:=False;
RadioButton4.Checked:=True;
DateTimePicker1.Date:=date;
DateTimePicker1.Enabled:=false;
end;
Codlong:=pedido+linea+'RE';
codlarg:=codlong;
Form4.Height:=360;
Bitbtn3.Visible:=False;
Bitbtn1.Visible:=True;
Panel5.Visible:=false;
cargacombo();

end;

Esto es todo lo que hay, espero que te pueda servir

Saludos