[webmasterplc]

Buenas tengo un error que me lleva loco cuando doy click sobre el grid me muestra error de focus solo algunas veces
mi código es el siguiente esta desarrollado en delphi XE8

Código Delphi [-]
var
importado,activo:string;
begin
      if accion = 'ver' then
      begin

      with datos.sqbuscarequipo do
      begin
      GroupBox1.Enabled:=True;
      grp1.Enabled:=True;
      grp2.Enabled:=True;
      edtcodigo.Text:=FieldByName('eq_codigo').AsString;
      edtcodigo.Enabled:=False;
      edtdescripcion.Text:=FieldByName('eq_descripcion').AsString;
      edtdescripcion.ReadOnly:=True;
      Edtmarca.Text:=FieldByName('eq_marca').AsString;
      edtmarca.ReadOnly:=True;
      edtcosto.Text:=FieldByName('eq_costodiario').AsString;
      edtcosto.ReadOnly:=True;
      edtmodelo.Text:=FieldByName('eq_modelo').AsString;
      edtmodelo.ReadOnly:=True;
      importado:=FieldByName('eq_importado').AsString;
      activo:=FieldByName('eq_activofijo').AsString;
      edtvaloraqui.Text:=FieldByName('eq_valor').AsString;
      edtcop.Text:=CurrToStr(FieldByName('eq_factor').AsCurrency);
      rbimpno.Enabled:=False;
      rbimpsi.Enabled:=False;
      rbafsi.Enabled:=False;
      rbafno.Enabled:=False;
      btneliminar.Visible:=False;
      edtvaloraqui.Enabled:=False;
      edtcop.Enabled:=False;


          if importado = 'True' then
      begin
        rbimpsi.Checked:=True;
      end
      else
      if importado = 'False' then
      begin
        rbimpno.Checked:=True;
      end;

          if activo = 'True' then
      begin
        rbafsi.Checked:=True;
      end
      else
      if activo = 'False' then
      begin
        rbafno.Checked:=True;
      end;
      end;
end;