我用DELPHI IDTCPSERVER/IDTCPCLIENT设计一个外网和内网信息传递程序，有谁可帮忙啊

Question

各位先行者：
　　　我想设计一个DELPHI　IDTCPserver/IDTCPClient设计内网和外网的信息传递程序，有谁能提供代码程序啊

Answer 1

self.IdTCPClient1.Host:='ip';
  self.IdTCPClient1.Port:=port;
  try
    IdTCPClient1.Connect(5000);
    IdTCPClient1.WriteBuffer( ....... );
    IdTCPClient1.Disconnect;
  except
    ..........
  end;
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
  with AThread.Connection do
  begin
    ReadBuffer(.....)
  end;
end;