FPC: Генерики.

  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>);
  THashTableString = class(THashTableString<String>);  // Error: Class type expected, but got "<erroneous type>"

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

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

 function IndicesOf(Value: T): TArrayEx<integer>;