Delphi - Dbgrid y algo mas........

hola a todos, bien.....
estoy usando un dbgrid y lo que quiero es que cuando uno vaya pasando de registro en registro (con el teclado) el caption de unos paneles se vayan actualizando con los datos de tal registro.-
lo q ahora estoy haciendo es lo siguiente (en el evento \"CellClick\" de la dbgrid):

procedure Tformulario_inicio.dbgrid_principalCellClick(Column: TColumn);
var Xnro_cd: string;

begin
if DBGrid_principal.SelectedRows.Count = 1 then begin

Xnro_cd := datamodule1.ADOQuery1.FieldByName(\'cod_persona\').AsString;

adoquery1.Active := false;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(\'SELECT nombre, apellido\');
adoquery1.SQL.Add(\'FROM personas, contratos\');
adoquery1.SQL.Add(\'WHERE personas.cod_persona = \');
adoquery1.SQL.Add(Xnro_cd);
adoquery1.Active := true;

Panel1.Caption := adoquery1.fieldbyname(\'nombre\').AsString;
Panel2.Caption := adoquery1.fieldbyname(\'apellido\').AsString;
end;

nose si se me entendio, quiero evitar usar el evento CellClick .....-
bueno gracias por aunque sea leer esto.-

chau suerte

Todavía no he utilizado los ADO pero, ¿no te sirve el evento AfterScroll del DataSet o es que no lo tiene?.

Si lo tiene, te permite que cada vez que cambie el registro actual se ejecute el código que quieras.