Delphi-Quellcode:
main.qryproducts.SQL.Clear;
main.qryproducts.Params.Clear;
main.qryproducts.ParamByName('nr_pzn').AsString := nr_pzn;
main.qryproducts.ParamByName('menge').AsString := menge;
main.qryproducts.ParamByName('einheit').AsString := einheit;
main.qryproducts.ParamByName('dafo').AsString := dafo;
main.qryproducts.ParamByName('hersteller').AsString := hersteller;
main.qryproducts.ParamByName('charge').AsString := charge;
main.qryproducts.ParamByName('verfall').AsString := verfall;
main.qryproducts.ParamByName('pruefdatum').AsString := pruefdatum;
main.qryproducts.ParamByName('pruefer').AsString := pruefer;
main.qryproducts.ParamByName('name').AsString := name;
So vielleicht, um es nochmal zu verdeutlichen?