procedure Button2Click(Sender: TObject);

　　procedure CSRead(Sender: TObject; Socket: TCustomWinSocket);

　　procedure Bitbtn2Click(Sender: TObject);

　　private

　　{ Private declarations }

　　public

　　{ Public declarations }

　　end;

　　var

　　FmMain: TFmMain;

　　implementation

　　{$R *.dfm}

　　procedure TFmMain.Button2Click(Sender: TObject);

　　begin

　　CS.Host:=Edit2.Text;

　　CS.Port:=StrToInt(Edit3.Text);

　　CS.Open;

　　end;

　　procedure TFmMain.CSRead(Sender: TObject; Socket: TCustomWinSocket);

　　begin

　　Memo1.Clear;

　　Memo1.Lines.Add(Socket.ReceiveText);

　　Memo1.Lines.Add('');

　　end;

　　procedure TFmMain.Bitbtn2Click(Sender: TObject);

　　begin

　　CS.Socket.SendText(edit4.Text);

　　end;

　　end.

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛 https://bbs.txwb.com 关注天下网吧微信/下载天下网吧APP/天下网吧小程序，一起来超精彩