with AdspSave do
begin
Parameters.ParamByName('@name').Value:=trim(edtname.Text);
Parameters.ParamByName('@description').Value:=trim(Mmodes.Text);
Parameters.ParamByName('@tasktime').Value:=Fedttime.Value;
ExecProc;
if Parameters.ParamByName('@RETURN_VALUE').Value<=0 then
begin
application.MessageBox('&Ecirc;&yacute;&frac34;&Yacute;&acute;&aelig;&acute;&cent;&acute;í&Icirc;ó',
'FMECA', mb_ok + MB_ICONWARNING);
exit;
end