unit tw26482; {$mode delphi} interface type TEnumerator = class end; TList = class public type TEnumerator = class(TObject); protected function DoGetEnumerator: TEnumerator; end; implementation function TList.DoGetEnumerator: TEnumerator; // Error: Identifier not found "TEnumerator$1" begin end; end.