Código Delphi [-] form1.q1.ParamByName('p2').aSSmallInt:=StrToInt(form3.DBedit1.text);
form1.q1.ParamByName('p2').aSSmallInt:=StrToInt(form3.DBedit1.text);