Fórum Erro ao gerar um Generator. Uso Fb 1.5 #50249

function GetGenerator(Gerador: string): String;
var
  Qry: TQuery;
begin
  Qry := TQuery.Create(nil);
   Qry.Databasename := sMeuDatabase;
  try
    Result := ´´;
    Qry.Close;
    Qry.Connection := zConector;
    Qry.SQL.Text := ´SELECT GEN_ID(´+Gerador+´,1) FROM RDB$DATABASE´;
    try
      Qry.Open;
    except
      raise Exception.Create(´Erro ao gerar nova Sequencia para "´+
                             UpperCase(Gerador)+´"´#1313+
                             ´Avise o SUPORTE TÉCNICO.´);
    end;
    Result := IntToStr(Trunc(Qry.FieldByName(´GEN_ID´).AsFloat));
  finally
    Qry.Free;
  end;
end;