如何在程序中产生一个clientsocket控件

Question

如题，用代码产生

Answer 1

Uses
  ScktComp;
......var
  ClientSocket1: TClientSocket;
......procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientSocket1 := TClientSocket.Create(Self);
  with ClientSocket1 do
  begin
    Close;
    ClientType := ctNonBlocking; //设置类型
    Port := 1234;//设置端口
    OnConnecting := ClientSocket1Connecting;//设置事件的处理过程, 下同
    OnConnect := ClientSocket1Connect;
    OnDisconnect := ClientSocket1Disconnect;
    OnRead := ClientSocket1Read;
    OnError := ClientSocket1Error;
  end;
end;

Answer 2

补充:
procedure TForm1.FormDestroy(Sender: TObject);
begin
  ClientSocket1.Free; //程序结束时释放.
end;