Delphi and Interface

[crossmark]

Здравствуйте!
вот решил изучать технологию Com.
столкнулся с проблемой аж с самого начала...
набирал код из книги

unit Unit2;
interface
uses Windows;
type
   ITest=interface
      ['{9B187C91-1300-4546-B74E-944CAB86058D}']
      procedure Beep;
   end;
   ITest2=interface
      ['{AFC8CFE7-A7BF-4A49-A6E7-0FF319F95FA1}']
      procedure Beep;
   end;

   TTest2=class(TInterfacedObject,ITest,ITest2)
   procedure MyBeep;
   procedure ITest.Beep=MyBeep;
   procedure ITest2.Beep=MyBeep;
   end;

type
   TBeeper=class
     procedure Beep;
   end;
   TMessager=class
     procedure ShowMessage(const S:string);
   end;

   TTest3=class(TinterfacedObject,ITest,ITest2)
   private
     FBeeper:TBeeper; --------------------------> вот здесь при компиляции говорит о том что не знает 
                                                  Beep
end;
implementation

{ TTest2 }

procedure TTest2.MyBeep;
begin
 //
end;

{ TBeeper }

procedure TBeeper.Beep;
begin
 Windows.Beep(0,0);
end;

{ TMessager }

procedure TMessager.ShowMessage(const S: string);
begin
  MessageBox(0,PChar(S),nil,0);
end;

end.

И еще вопросик:

Смысл в том что, создаем в модуле Интерфейс

unit ToolberInterface;

interface
type
   TCommandType=(ctSave,ctLoad,ctClear);
   TCommandTypes=set of TCommandType;
   TSaveType=(stSave,stSaveAs);

   IToolBarCommands=interface
   ['{0C7A6137-8EE5-4D4B-801B-EF196E10187C}']
     function SupporedCommands:TCommandTypes ;
     function Save(AType:TSaveType):Boolean ;
     procedure Load;
     procedure Clear;
   end;   
implementation

uses Unit2;

end.

теперь его надо подключить в Форму

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm, IToolBarCommands) ------------> вот здесь по примеру он подключается, но у меня 
                                                         ошибка
  private
    { Private declarations }
    function SupportedCommands:TCommandTypes ;
  public
    { Public declarations }
  end;


var
  Form2: TForm2;

implementation

uses ToolberInterface, Unit1;

{$R *.dfm}

{ TForm2 }

function TForm2.SupportedCommands: TCommandTypes;
begin
//
end;

end.

Спасибо!

[Karabash]

Особенность в том, что в классе, использующий интерфейс должны быть объявлены и реализованы ВСЕ методы интерфейса. Реализация, при необходимости, может быть пустой.

[Sanprof]

по первому вопросу:

TTest3=class(TinterfacedObject,ITest,ITest2)
   private
     FBeeper:TBeeper;
     procedure ITest.Beep=FBeeper.Beep;//точно не уверен, но сначала нужно закриэйтить Fbeeper
     procedure ITest2.Beep=FBeeper.Beep;
end;

По второму вопросу:
uses ToolberInterface, Unit1; - ToolberInterface от сюда убрать и добавить в Uses реализации Interface.