关于delphi idtcpserver和idtcpclient的问题。

[凡凡~mp4]

请教，我想用idtcpserver和idtcpclient，将安卓平板与电脑相连，可以收发消息就行。目前的想法是将平板作为客户端，电脑作为服务端。
但是链接时一直链接失败。显示为：链接超时。

平板（客户端）代码：
procedure TForm1.Button1Click（Sender:TObject); //用于配置host和port，并链接
begin
IdTCPClient1.host:='141.55.217.203'; //此为服务器IP地址
IdTCPClient1.Port:=1339;
IdTCPClient1.Conect;
end;

procedure Tform1.IdTCPClient1Connected(Sender:TObject);
begin
Memo1.Lines.Add(idtcpclient1.Socket.ReadLn);
end;

end;

PC(服务端)代码：
procedure TForm1.Button1Click（Sender:TObject); //用于配置port，并激活。相当于初始化。
begin
IdTCPServer1.DefaultPort:=1339;
IdTCPServer1.Active:=True;
end;

procedure Tform1.IdTCPServer1Connect(Sender:TObject);
begin
acontext.Contection.Socket.WriteLn('connected');
Memo1.Lines.Add('connecting..');
end;

end;

上面的代码希望的运行结果是：PC激活后，平板链接。链接成功以后，平板收到connected的消息，PC显示connecting的消息。

ps. PC上的防火墙已经检查过了，应该是没问题的。
两台设备也都在同一局域网下。
平板是fmx环境，PC是VCL环境。编译软件为RAD10.2。
但一直显示连接超时，请问是哪里出了问题。