[jonmendi]

Muchas gacias a todos!! y perdonar por no contestar antes,
peo mi punto de locura sigue igual.
He probado el código de Contraveneno y me da el mismo error.
He probado a crear los parametros en tiempo de ejecución

 
 with ADOQuery1 do begin
   If active then close;
   SQL.Clear;
   SQL.Add('Insert into TBL_M_ART (M_Cod, M_des)');
   SQL.Add('Values (:Cod,:Desc)');
   with parameters do begin
     CreateParameter('Cod', ftWideString,pdInput,6,null);
     CreateParameter('Desc', ftWideString,pdInput,40,null);
     ParamByName('Cod').value := '000486'; //edtCodigo.Text;
     ParamByName('Desc').Value := StringOfChar(' ', 40); //edtDescricpion.Text;
   end; //parameters
   ExecSQL;
end; //with

y sigue igual.
Me corto las venas? me tomo un vasito de agua? O pienso un poco más y vuelvo a pedir vuestra ayuda? Me decanto por 2 y 3 ().

Esto en cambio funciona perfecto:

 
 with ADOQuery1 do begin
   If active then close;
   SQL.Clear;
   SQL.Add('Insert into TBL_M_ART Values (''' + cod+ ''', ''' + desc+ ''', )');
   ExecSQL;
end;

Por lo tanto, es parámetros seguro. Pero ¿qué demonios?

Muchas gracias a todos de nuevo!!
Jon