各位Socket高手进来看看，为何显示连接服务器失败？？？？？？？？？？？？？？？

procedure TFrm_Main.Btn_PingerClick(Sender: TObject);
var
  Info: string;
  SendBuf, RecvBuf: pchar;
  MySocket: TSocket;
  addr: TSockAddr;
  Re: integer;
begin
  MySocket := Socket(AF_INET, SOCK_STREAM, 0);
  if MySocket = INVALID_SOCKET then
  begin
    Memo_Info.Lines.Add('错误：建立Socket失败');
    exit;
  end;
  ZeroMemory(@addr, sizeof(addr));
  addr.sin_family := AF_INET;
  addr.sin_addr.S_addr := inet_addr(pchar(Edit_ServerName.Text));
  addr.sin_port := htons(79);
  Re := Connect(MySocket, addr, sizeof(addr));
  if Re <> 0 then
  begin
    Memo_Info.Lines.Add('连接服务器失败！');//这个地方连接失败
    exit;
  end;
  GetMem(SendBuf, 1024);
  ZeroMemory(SendBuf, 1024);
  info := Edit_User.Text + #10;
  StrPCopy(SendBuf, Info);
  Re := Send(MySocket, SendBuf^, Length(SendBuf), 0);
  if Re = SOCKET_ERROR then
  begin
    Memo_Info.Lines.Add('发送数据失败！');
    exit;
  end;
  GetMem(RecvBuf, 1024);
  repeat
    ZeroMemory(RecvBuf, 1024);
    Re := Recv(MySocket, RecvBuf^, 1024, 0);
    Info := StrPas(RecvBuf);
    Memo_Info.Lines.Add(Info);
  until Re = 0;
  Memo_Info.Lines.Add('结束');
  FreeMem(SendBuf);
  FreeMem(RecvBuf);
  CloseSocket(MySocket);
end;//我输入我自己机器的IP和局域网其他机器的IP都显示连接失败，这是为什么？