用ttcpClient组件接收数据的问题

Question

在程序中动态创建了多个ttcpclient的实例，请问如何指定他们的onreceive事件？
另外，动态创建客户套接字时，参数aowner应该如何指定？
 如： client：ttcpClient
   client:=TtcpClient.create(aowner:tcomponent)
我用的是nil，但不知对否。

Answer 1

procedure Tform1.TcpReceive(Sender: TObject; buf: pchar; var datalen: integer);
beginend;procedure TForm1.Button1Click(Sender: TObject);
var client:TTcpClient;
begin
    client:=TtcpClient.create(nil);
    client.OnReceive:=TcpReceiveend;