procedure UpdateCustomerTurn(Qry: TADOQuery; const TurnId, CustId: Integer);
begin
with Qry do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE TURNOCLIENTE SET ID_CLIENTE = :CUSTID');
SQL.Add('WHERE IDTURNO = :TURNID');
Parameters.ParamByName('CUSTID').Value:= CustId;
Parameters.ParamByName('TURNID').Value:= TurnId;
ExecSQL;
end;
end;