Creo que si desarrollas esta idea te podrá servir:
Código:
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.