下面的代码依旧正常。  with Query1 do
  begin
    Close;
    SQL.Text := 'update "customer.db" set Addr2 = :a where CustNo=:b';
    ParamByName('a').AsString := 'Deep Sorrow';
    ParamByName('b').AsInteger := 1354;
    ExecSQL;
    SQL.Text := 'select * from "customer.db"';
    Open;
  end;