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