[Lavr!k]

Уважаемые господа

Хочу написать COM Server. Использую для этого пример из учебника Есенина DirectX и Delphi (стр. 20-27)
Почти в самом начале есть строки:

Код:

type
  TSimpleObject = class(TTypedComObject, ISimpleConfigurator, ISimpleDrawing)
  private
    FCanvas: TCanvas;
    FHandle: THandle;
    FObjectSize: integer;
    FBorderColor,
    FFillColor: integer;
    
  protected
    function SetObjectSize(ObjectSize: Integer): HResult; stdcall;
    function SetColors(BorderColor, FillColor: Integer): HResult; stdcall;
    function SetWindow(Handle: Integer): HResult; stdcall;

Админ: Пользуемся тегами для оформления кода!

При компиляции в окне выводятся ошибки:
[Error] UnitMain.pas(29): Declaration of 'SetWindow' differs from declaration in interface 'ISimpleConfigurator'
[Error] UnitMain.pas(29): Declaration of 'SetColors' differs from declaration in interface 'ISimpleConfigurator'
[Error] UnitMain.pas(29): Declaration of 'SetObjectSize' differs from declaration in interface 'ISimpleConfigurator'

Объясните, пожалуйста, что не так с декларированием?
Заранее спасибо.