[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'

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

[M.A.D.M.A.N.]

Молоток дать?

[mw_Kronos]

Сообщение от M.A.D.M.A.N.

Молоток дать?

Боюсь код от этого работать не станет.

[NumLock]

Обработчик должен быть методом класса

[M.A.D.M.A.N.]

Выделяешь метод объекта, жмешь F1 и читаешь, что это за метод и как его использовать.

[mw_Kronos]

Сообщение от M.A.D.M.A.N.

Выделяешь метод объекта, жмешь F1 и читаешь, что это за метод и как его использовать.

Вот тут помогли:
http://www.experts-exchange.com/Prog..._22979642.html

[Aristarh Dark]

Сообщение от mw_Kronos

Вот тут помогли:
http://www.experts-exchange.com/Prog..._22979642.html

Непонял! Это реклама платного сервиса?

[M.A.D.M.A.N.]

Сообщение от Aristarh Dark

Непонял! Это реклама платного сервиса?

Агась.
Поэтому предложение молотка всё так же в силе.

[mw_Kronos]

Сообщение от Aristarh Dark

Непонял! Это реклама платного сервиса?

Это третья ссылка в гугле по запросу "delphi apptype console TTCPserver".
Из гугла открывается нормально, без всяких "get access now".