ClientSocket1和 ServerSocket1 不能正常发送和接受信息

client:
procedure TForm2.FormCreate(Sender: TObject);
var
LocalIp: string  ;
macip: string  ;
Buff: String[100];
begin
   self.GetLocalIP(LocalIp);
   self.Edit1.Text:=localip;
   self.MacAddress(macip);
   self.Edit2.Text:=macip;
   ClientSocket1.Address:=self.Edit4.text;
   ClientSocket1.Port:=StrToInt(self.Edit3.text);
      //连接服务器Socket(也可以通过设置其active属性来打开socket)
  // Clientsocket1.Active :=true;
   ClientSocket1.Open();
   if ClientSocket1.Socket.Connected then
    begin
     showmessage('sssss');//加上这句
     ClientSocket1.Socket.SendText('111111');    end
    else
    begin
    showmessage('xxxx');//加上这句    end  // sleep(1000);end;
server:
procedure TForm1.FormShow(Sender: TObject);
begin
    ServerSocket1.Port:=StrToInt(self.Edit1.text);
      //连接服务器Socket(也可以通过设置其active属性来打开socket)
    ServerSocket1.Open();
end;procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
Var
  ReceiveText:string;
  i:integer;
begin
    //获取收到的字符(通过Socket收到的字符串一定要先保存到字符串中，否则会出点问题)
  ReceiveText:=Socket.ReceiveText;
  self.Edit2.Text:=string(Socket.ReceiveText);
end;