[tcp_ip_es]

Si es un dbgrid con que hagas un locate del campo posición en el dataset que estes utilizando te bastaría.

Si es un stringgrid tendrías que recorrer la columna posición hasta encontrar el 1.

Código Delphi [-]
      
with stringgrid1 do
begin 
 for J:= 0 to RowCount - 1 do
  if cells[1,J] = 1 then
  begin 
   col:=1;
   row:=J; 
  end; 
end;