接收问题4楼帮我解决了，，谢谢四楼。现在又有个问题，为什么我发送数据时出现错误：list index out of bounds(0)？发送过程为：

procedure TMAINFORM.Button3Click(Sender: TObject);
 var
     s1:string;
begin
   s1:=Memo2.seltext;
   s1:=StringReplace(s1,‘ ‘,‘‘,[rfReplaceAll]);
   TCPServer1.Socket.Connections[0].SendText(S1);
end;