Código Delphi [-]int newrec = Query->Params->ParamByName("newrec")->AsSmallInt;
int newrec = Query->Params->ParamByName("newrec")->AsSmallInt;