[Shaft]

Всем привет! Нашел в инете код но он почему то не работает(при коннекте на порт 27010 ничего не происходит), подскажите пожалуйста в чем дело.

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, IdSocketHandle, IdBaseComponent, IdComponent, IdUDPBase,
  IdUDPServer;

type
  TUDPServer = class
  private
  IdUDPServer: TIdUDPServer;
  procedure IdUDPServer1UDPRead(ASender: TObject;AData: TStream; ABinding: TIdSocketHandle);
  public
  constructor Create; reintroduce;
  destructor Destroy; override;
end;

constructor TUDPServer.Create;
begin
  idUDPServer:=tIdUDPServer.create(nil);
  idUDPServer.DefaultPort:=27010;
  idUDPServer.BufferSize:=8192;
  idUDPServer.BroadcastEnabled:=false;
  idUDPServer.OnUDPRead:=IdUDPServer1UDPRead;
  IdUDPServer.Active:=true;
end;

destructor TUDPServer.Destroy;
begin
  IdUDPServer.Active:=false;
  IdUDPServer.free;
  inherited destroy;
end;

procedure TUDPServer.IdUDPServer1UDPRead(ASender: TObject;AData:
  TStream; ABinding: TIdSocketHandle);
begin
Writeln('KyKy');
readln;
end;

begin
with TUDPServer.Create do
  try
    writeln( 'Running' );
    readln
  finally
    free;
  end;
end.