[[Caral]]

Hola

Código Delphi [-]
procedure TForm1.grabaClick(Sender: TObject);
begin
       DM.QAlta_art.text:= 'INSERT INTO articulos (nom,pc,pv,stk) VALUES (:NOM,:PC,:PV,:STK)';
       DM.QAlta_art.ParamByName('NOM').AsString:= Trim(nom.Text);
       DM.QAlta_art.ParamByName('PC').AsFloat:= StrToFloat(pc.Text);
       DM.QAlta_art.ParamByName('PV').AsFloat:= StrToFloat(pv.Text);
       DM.QAlta_art.ParamByName('STK').AsInteger:= StrToInt(stk.Text);
       DM.QAlta_art.ExecSQL;
       ShowMessage('Codigo de Edicion de articulo.');
end;

No me suena mucho que los nombres de los parametros sean iguales al de los campos.
Saludos