[giulichajari]

hice lo siguiente y funciono:

Código Delphi [-]
function TServerMethods1.nuevoid:integer;
begin

  with quticket do
    begin
      SQL.Clear;
      SQL.Add('update identificadores set ticket=ticket+1');
      ExecSQL();
      SQL.Clear;
      SQL.Add('select ticket from identificadores');
      Open;
      result:=FieldByName('ticket').AsInteger;
    end;

end;

nunca falla..