Здравствуйте, Палкин, Вы писали:

П>type
П> ITextReader = interface(IInterface)
П> ...
П> end;

П> IExtendedTextReader = interface(ITextReader)
П> ...
П> end;

П> TExtendedTextReader = class(TInterfacedObject, IExtendedTextReader)
П> ...
П> end;

П>var
П> Obj: TExtendedTextReader;
П> Intf: ITextReader;
П>begin
П> ...
П> Intf := Obj; // Ошибка! Класс TExtendedTextReader не реализует
П> // интерфейс IExtendedTextReader.
П> ...
П>end;

П>Мне кажется, здесь ошибка в комментарии. Класс TExtendedTextReader не реализует
П>интерфейс ITextReader

Да, в комментарии допущена ошибка. Вместо IExtendedTextReader должно быть ITextReader.