THashTableString<TValue> = class(THashTable<String,TValue>);
  THashTableString = class(THashTableString<String>);  // Error: Class type expected, but got "<erroneous type>"

  TArrayEx<T> = record
    function IndexesOf(Value: T): TArrayEx<integer>;  // Fatal: Syntax error, "identifier" expected but ";" found
  end;

  THashTableString<TValue> = class(THashTable<String,TValue>);
  THashTableStringAlias = THashTableString<String>; 
  THashTableString = class(THashTableStringAlias);

  TArrayEx<T> = record
    function Add(Value: T): integer; overload; {$IFDEF Inline} inline; {$ENDIF}
    function Add(Values: array of T): integer; overload;
    function Add(Values: TArrayEx<T>): integer; overload;
    function AddUnique(Value: T): integer; {$IFDEF Inline} inline; {$ENDIF}
end;

function TArrayEx<T>.AddUnique(Value: T): integer;
begin
  Result:=IndexOf(Value);
  if Result<0 then begin
    Result:=Add(Value);  // Error: Can't determine which overloaded function to call
  end;
end;

var
  x : TArrayEx<integer>;

var
  x : specialize TArrayEx<integer>;