怪事，怪事，居然会自动发送数据,该怎么解决

怪事，怪事，居然会自动发送数据

Delphi(Pascal) code

procedure TForm1.btn1Click(Sender: TObject);begin  ClientSocket1.Socket.SendText('我发送过来了');end;procedure TForm1.FormCreate(Sender: TObject);begin  try    ServerSocket1.Port:=8000;    ServerSocket1.Open;    StatusBar1.Panels[0].Text:='8000 打开端口成功';  except    StatusBar1.Panels[0].Text:='8000 打开端口失败';  end;  ClientSocket1.Address:='10.143.107.58';  ClientSocket1.Port:=8000;  ClientSocket1.Open;end;procedure TForm1.ServerSocket1ClientRead(Sender: TObject;  Socket: TCustomWinSocket);var  S:string;begin  s:=Socket.ReceiveText;  if not(s='内部管理') then    Memo1.Lines.Add(s);end;