使用fmx中的套接字发送/接收文本

Question

我在发送和接收文本时遇到问题，我将ip放在本地，也将ip放在公共地址，但是无法从应用程序接收字符串到移动设备，这是我的代码 客户

        procedure tForm1.hellow(const AHost : string; const APort : integer);
           begin
            with IdTCPClient1 do
                begin
               Port := APort;
               Host := AHost;
               try
              Connect; //connecte
       Try

         IdTCPClient1.Socket.WriteLn('hellow firemonkey ');
         if IdTCPClient1.Socket.ReadLn()<>'OK' then
        ShowMessage ('Erreur : l''exécution a été refusée par le  serveur.');
        finally
        Disconnect;
        end;
        except
        ShowMessage('Une erreur est survenue durant l''envoi de commandes');
       end;
        end;
        end;

服务器

       procedure TForm2.FormCreate(Sender: TObject);
       begin
       IdTCPServer1.DefaultPort:=3000;
       IdTCPServer1.OnExecute:=IdTCPServer1Execute;
        IdTCPServer1.Active:=true;
        end;

       procedure TForm2.IdTCPServer1Execute(AContext: TIdContext);

       var
      Line, Command, Args : String;
       begin

          Line := AContext.Connection.Socket.ReadLn;
         Memo1.Lines.Add(line);
        end;