[mw_Kronos]

Код такой (RadStudio XE5):

Код:

program

{$APPTYPE CONSOLE}
...
uses
...

var
  TCPServer: TTCPServer;

procedure TCPServerAccept(Sender: TObject; ClientSocket: TCustomIpClient);
begin
  Writeln('Принят сетевой пакет');
end;

begin

  TCPServer := TTCPServer.Create(nil);
  TCPServer.OnAccept := TCPServerAccept;

end.

пишет: 
[dcc32 Error] DtDebtServer.dpr(52): E2009 Incompatible types: 'method pointer and regular procedure'

пробовал так:

...

var
  TCPServer: TTCPServer;
  Method: TMethod;

begin

  TCPServer := TTCPServer.Create(nil);
  Method.Code := @TCPServerAccept;
  Method.Data := TCPServer;
  TCPServer.OnAccept := TNotifyEvent(Method);

end.

MAD: пользуемся тегами.

тоже ругается: [dcc32 Error] DtDebtServer.dpr(79): E2009 Incompatible types: 'Parameter lists differ'

как победить проблему, кто знает?