WeBSockets Клиент - Сервер Делфи не соединяется по Интернету

procedure TForm1.Button2Click(Sender: TObject);
var strm:tmemorystream;
    s:string;
begin
  if not assigned(client) then
   begin
    client := TIdHTTPWebsocketClient.Create(Self);
    client.Port := 8585;
    client.OnBinData     := ClientBinDataReceived;
   end;
    client.Host := IpEdit.Text;
  case RG1.ItemIndex of
   0:begin
      if not client.CheckConnection then
       begin
        client.Connect;
        client.UpgradeToWebsocket;
        client.IOHandler.Write('Connection is Active');
       end;
     end;
 
   1:begin
      client.SocketIOCompatible := False;
      //client.UpgradeToWebsocket;
      strm := TMemoryStream.Create;
      try
       client.Get('http://'+client.Host+':8585/index.html', strm);
       with TStreamReader.Create(strm) do
        begin
         strm.Position := 0;
         s := ReadToEnd;
         Free;
        end;
 
       showmessage(s);
      finally
       strm.Free;
      end;
     end;
  end;
 
   StatusT.Tag:=0;
end;

procedure TForm1.SerButtonClick(Sender: TObject);
begin
 if not assigned(server) then
  begin
   server := TIdWebsocketServer.Create(Self);
   server.DefaultPort := 8585;
   server.OnMessageText := ServerMessageTextReceived;
   server.OnMessageBin:=ServerdataMessage;
   server.OnCommandGet:=HandleHTTPServerCommandGet;
   server.KeepAlive:=true;
  end;
  server.Active      := not server.Active;
  if server.Active then
   logserver.Lines.Add(datetimetostr(date)+' : Server is STARTED')
  else
   logserver.Lines.Add(datetimetostr(date)+' : Server is STOPPED')
end;

result := self.Get('тут_ваш_адрес').ContentAsString.Trim;

TMyServer = class(TIdHTTPServer)
  PRIVATE
  ...
    procedure ServerCommandGet(AContext: TIdContext;
      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  ...
  protected
  public
    ...
 
constructor TMyServer.Create;
begin
  inherited Create(nil);
...
  SELF.OnCommandGet := self.ServerCommandGet;
...
end;
 
procedure TMyServer.ServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var LCommand:String; //команда
    LModule:string;  //модуль
//    LContext:DMContext ABSOLUTE AContext;
    LModuleController:DMCustomModule;
    i: Integer;
begin
try
 
if ARequestInfo.Command.ToUpper = 'GET' then
begin
  if Pos('?',AREQUESTINFO.URI) > 0 then
    begin
    //получаем параметры запроса
    end;
end
else if AREQUESTINFO.Command.ToUpper = 'POST' then
  begin
  //обрабатываем POST-запросы 
  end;
end;