Fórum E2010 Incompatible types: Variant and TADOQuery qual o motivo ? DELPHI #576551

 while dm.qConsulta.eof=false do begin
        dm.qExecuta.sql.text := 'INSERT INTO GTELPERM (ID_PERM,ACESSO,ID_GRUPO) VALUES (:WID_PERM,"N",:WID_GRUPO)';
        dm.qExecuta.Parameters.ParamByName('WID_PERM').Value := dm.qConsulta; // ERRO APARECE NESSA LINHA
        dm.qExecuta.Parameters.ParamByName('WID_GRUPO').Value := aux;
        dm.qExecuta.ExecSQL;

        dm.qConsulta.Next;
   end;