[ecfisa]

Hola Irlod y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Proba de este modo:

Código Delphi [-]
  with ADODataSetOperaciones do
  begin
    Close;
    CommandText := 'SELECT * FROM OPERACIONESEQUIPOS WHERE EQUIPOCODIGO = :CODIGO';
    Parameters.ParamByName('CODIGO').Value :=
      ADODataSetEquipos.FieldByName('EQUIPOCODIGO').Value;
    Open;
  end;

Saludos