求一个动态生成UDPServer并且UDPRead能够监听的例子。

[微笑的水]

各位老师好，小弟在学习INDY，想做一个类似QQ那样的局网通信软件。
就是生成一个在线列表，双击图标之后，生成一个窗口能够互传信息。
并且能够同时和多个人说话，只要是1对1就行。于是想动态生成UDPServer，其他部分完成，
可是在端口监听部分出现了问题。UDPRead不执行。
我的代码片段。。。

 TMyUDP=class(TComponent)//定义个对象，事件和udpread一样。我觉得这里有问题
      public
      procedure myUDPRead(Sender: TObject; AData: TBytes;  ABinding: TIdSocketHandle);
  end;

  TFchat = class(TForm)
    _do: TADOQuery;
    L3: TLabel;
    ........
  private
    { Private declarations }
    _userID, _myID , _name, _myIP, _objIP, _chatSession: string;
    _objport, _myport  : integer;      //目标端口
  public
    { Public declarations }
  end;

var
  Fchat: TFchat;
  testPort: TServerSocket;
  UDPS : TIdUDPServer;
  myUDPServer : TMyUDP;

procedure TFchat.FormShow(Sender: TObject);
var filename, _sql, _now: string;
begin
    ..........
    _myip  := NameToIP(GetHostName);//获取本机IP
    _objip := _do.Fields[0].AsString;//从数据库取目标ip，之前的sql语句我删除了
    UDPS := TIdUDPServer.Create(nil);//生成udp
    myUDPServer := TmyUDP.Create(nil);
    UDPS.Bindings.Clear;
    UDPS.Bindings.Add.IP := NameToIP(GetHostName);
    UDPS.DefaultPort := _myport;
    UDPS.OnUDPRead := myUDPServer.myUDPRead;
    UDPS.Active := true;
    PortCaption.Caption := '当前IP : '+_myip +' 使用端口: ' + inttostr(_myport) + ' 对方IP：'+_objIP+'对方端口：'+inttostr(_objPort);
    Chat.Clear;
    Msg.SetFocus;
end;

procedure TMyUDP.myUDPRead(Sender: TObject; AData: TBytes;
  ABinding: TIdSocketHandle);
var theMessage, appMessage:string;
    getMessage:TStringList;
begin
    theMessage := BytesToString(AData);
    if theMessage <> '' then begin
       getMessage := TStringList.Create;
       ExtractStrings(['|'], [' '], pchar(theMessage), getMessage);
       if getMessage[0] = 'Msg' then  begin
          Fchat.Chat.SelAttributes.Color := clBlack;
          Fchat.Chat.SelAttributes.Size := 11;
          Fchat.Chat.SelAttributes.Name := '宋体';
          Fchat.Chat.Lines.Append(getMessage[1]);
       end;
       getMessage.Free;
    end;
end;

琢磨了很久，百度也没有解决。于是来这里请教各位老师，帮我指点一下。
能有代码例子更是感激。
我的QQ 49987968

[bdmh]

你现在有什么问题呢

[微笑的水]

你好。我现在的问题 是 udp 发出的消息， read不到，
我在ide里逐步执行，发现TMyUDP.myUDPRead 没有执行过

[微笑的水]

顶起，请好友们帮帮忙
谢谢。

[snake11am]

lz还在啊？可以详谈一下么。。。 我最近也在做这个

[微笑的水]

好啊，楼上的朋友，加我的QQ吧，一起研究。

[微笑的水]

问题搞定了。