function GetMethodsOnly(Base: TRttiType): TArray<TRttiMethod>;
type
  TArrArgsType = TArray<TRttiParameter>;
  TTTArrArgsType = TArray<TArrArgsType>;
  TArgsExistList = TDictionary<string, TTTArrArgsType>;
var
  Method: TRttiMethod;
  List: TArgsExistList;
  Name: string;
  Tmp: TTTArrArgsType;
  L, ListCurrent, ListMax: Integer;
  NewFor: Boolean;
  function IsParameterExist(P: TArrArgsType): Boolean;
  var
    T: TArrArgsType;
    I, Count: Integer;
  begin
    for T in Tmp do
    begin
      Count := Length(T);
      if Count = Length(P) then
      begin
        if Count = 0 then
          Exit(True);

        for I := 0 to Count - 1 do
          if T[I].ParamType <> P[I].ParamType then
            Exit(False);

        if I = Count then
          Exit(True);
      end;
    end;
    Exit(False);
  end;

begin
  ListCurrent := 0;
  ListMax := 100;
  SetLength(Result, ListMax);

  List := TArgsExistList.Create();
  while Base <> nil do
  begin
    NewFor := ListCurrent <= 0;
    for Method in Base.GetDeclaredMethods do
    begin
      SetLength(Tmp, 0); // free old step

      name := Method.Name.ToLower;

      if not NewFor and List.TryGetValue(name, Tmp) then
        if IsParameterExist(Method.GetParameters) then
          Continue;

      L := Length(Tmp);
      SetLength(Tmp, L + 1);

      Tmp[L] := Method.GetParameters;

      List.AddOrSetValue(name, Tmp);

      Result[ListCurrent] := Method;
      Inc(ListCurrent);

      if ListCurrent >= ListMax then
      begin
        Inc(ListMax, 100);
        SetLength(Result, ListMax);
      end;
    end;
    Base := Base.BaseType;
  end;

  List.Free;

  SetLength(Result, ListCurrent);
end;