[Nelet]

Ahora mismo no lo puedo probar, pero quiza serviría pasar los string "entrecomillados".

Código Delphi [-]
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,esc)');
   with parameters do begin
     CreateParameter('Cod', ftWideString,pdInput,6,null);
     CreateParameter('Desc', ftWideString,pdInput,40,null);
     ParamByName('Cod').value := QuotedStr('000486'); //edtCodigo.Text;
     ParamByName('Desc').Value := QuotedStr(StringOfChar(' ', 40)); //edtDescricpion.Text;
   end; //parameters
   ExecSQL;
end; //with

No estoy seguro de si al pasar el parámetro delphi le pone las comillas a los string para que SQLServer no proteste.