能不能从一个接口直接继承为一个类

Question

Im = interface
    function GetName():string;
    Procedure ShowName();
end;TM = class   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^请各位哥哥，讲解…………

Answer 1

Tm = class(TInterfaceobject, IM)
protected
    function GetName():string;
    Procedure ShowName();
end;

Answer 2

估计你是要实现一个接口吧;可以这样做:
TM = class(TComObject, Im)
protected
  function GetName():string;
  Procedure ShowName();
end;

Answer 3

Im = interface
    function GetName():string;
    Procedure ShowName();
end;Tm = class(TObject,Im) end;我如何引用或者是重载 IM 接口里的函数   ；  
我现在一引用就出错不知道该如何处理       
还说什么 没有声明的QueryInterfaceName()