大家帮我想想办法！！！

  WSAStartup($0101,WSAData);
  FSocket:=Socket(PF_INET, SOCK_STREAM,IPPROTO_IP);
  FHost:='202.104.32.230';
  FPort:=25;
  SockAddrIn.sin_addr.S_addr:=inet_addr(PChar(FHost));
  SockAddrIn.sin_port:=htons(FPort);
  SockAddrIn.sin_family:=PF_INET;
  Connect(FSocket,SockAddrIn, SizeOf(SockAddrIn));
  Recv(FSocket,Buf,400,0);
  Str:=Buf;
  ShowMessage(Str);
  Str:='提示信息'+#13#10;
  Send(FSocket,Buf,strlen(Buf),MSG_DONTROUTE);
  Recv(FSocket,Buf,400,0);
  Str:=StrPas(Buf);
  ShowMessage(Str);
  CloseSocket(FSocket);
  WSACleanup;