Реализация интерфейса

[Dr Evil]

Здравствуйте! Возник такой вопрос

Требуется написать класс потомок к примеру TEdit, и в тоже время класс должен описывать некий интерфейс IEditEx

Проблема в том что

Описание интерфейсного класс

type
   TEditEx = class(TInterfaceObject, IEditEx)
end

в данном случае мы не наследуем TEdit

type 
   TEditEx = class(TEdit, IEditEx)
end

в данном случае у нас отпадают методы интерфейса

    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;