[KOOL]

Проблемыыы.... Не получается создать класс интерфейсного объекта...По идее в нем должны быть те же процедуры, что и в интерфейсе + свои..но компилятор на этом участке ругается на недекларированную процедуру:

Код:

unit PPlugin

...
IPluginService = interface
    procedure OnPluginMessage(var PlugMsg: TPPluginMessage); stdcall;
  end;
  pIPluginService = ^IPluginService;
...
---------------------------------------------
//основная программа

...
type
    TPluginService = class(TInterfacedObject, IPluginService);//Вот тут ошибка [Error] PlaylistForm.pas(3893): Undeclared identifier: 'OnPluginMessage'
      public
        procedure OnPluginMessage(var PlugMsg: TPPluginMessage); stdcall;
    end;
    pTPluginService = ^TPluginService;

procedure TPluginService.OnPluginMessage(var PlugMsg: TPPluginMessage);
begin
//...
end;
...