Leer fila en la que estoy situado en un DBgrid

[ramonibk]

Una pequeña duda.

yo tengo algo parecido y tambien estoy buecando la manera de poder habrir desde el Dbgrid basado en Query un formulario para modificacion de datos.
pero en mi caso se complica por que lo que tengo son barios Query que mandan los datos a un DataSource. el cual es el que pinta en el DbGrid.

 
procedure TfrmBuscar.btnBuscarClick(Sender: TObject);

begin
 if rbEmpresa.checked then Begin
  qryEmpresas.close;
  qryEmpresas.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.dataSet:=qryEmpresas;
  qryEmpresas.Open;
 End Else
 If rbNombre.checked Then Begin
  qryNombre.Close;
  qryNombre.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.DataSet:=qryNombre;
  qryNombre.Open;
 End Else
 If rbApellido.checked Then Begin
  qryApellido.Close;
  qryApellido.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.DataSet:=qryApellido;
  qryApellido.Open;
 End Else
 If rbTelefono.checked Then Begin
  qryTelefono.Close;
  qryTelefono.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.DataSet:=qryTelefono;
  qryTelefono.Open;
  End;
end;

procedure TfrmBuscar.Salir1Click(Sender: TObject);
begin
 Close;
end;

Este es el codigo que estoy Usando para las diferenres busquedas.