怎样动态在程序中创建SOCKET

Question

tmpsocket:TClientSocket;procedure SOCKETCREATE();
BEGIN
Tmpsocket:=Tclientsocket.Create(nil);                      Tmpsocket.OnDisconnect:=form1.tmpDisconnect;
Tmpsocket.OnConnect:=form1.tmpconnect;
Tmpsocket.OnError:=form1.tmpError;
Tmpsocket.ACTIVE:=FALSE;
Tmpsocket.Host:=SOCKET_IP;//要连接的IP
Tmpsocket.Port:=SOCKET_PoRT;//端口
Tmpsocket.Active:=true; 
END;procedure tmperror(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ERRORCODE:=0;
tmpsocket.Free;end;procedure tmpConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin   
tmpsocket.Free;
netset;
end;procedure tmpDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
tmpsocket.Free;
testnet;
end;
************
* 努力学习 *
*   全为   *
*￥人民币￥*
************