Recoreer un Grid

[marcoszorrilla]

Creo que si desarrollas esta idea te podrá servir:

procedure TForm1.Button1Click(Sender: TObject);
Var
nActualRow,nTotalRows:Integer;
Ret:String;
begin
Ret:=Chr(13);
ShowMessage(DbGrid1.Columns[0].Field.asString);

nActualRow:=TsTringGrid(DbGrid1).Row;
nTotalRows:=TsTringGrid(DbGrid1).RowCount;
ShowMessage('Fila Actual: '+IntToStr(nActualRow)+Ret+
'Total Filas: '+IntToStr(nTotalRows));
//Ir a la primera
Table1.MoveBy(-nActualRow);
end;

Un Saludo.