在Delphi中实现公网和局域网的通信，通常需要使用Indy组件库，这是一个开源的网络通信库，支持TCP/IP和UDP通信、HTTP和HTTPS请求、SMTP和POP3邮件收发等功能。以下是实现公网和局域网通信的基本步骤：
安装Indy组件库
打开Delphi IDE。
在菜单栏中选择“Component” -> “Install Packages”。
在弹出的窗口中，选择Indy组件库对应的包进行安装。
添加Indy组件
在Delphi的工具箱中找到Indy组件库的相关组件，例如TIdTCPClient、TIdTCPServer、TIdHTTP等，并将它们添加到项目中。
配置Indy组件的属性
根据需要配置Indy组件的属性，例如设置服务器的IP地址和端口号、设置HTTP请求的URL等。
编写代码实现网络通信
使用Indy组件提供的方法实现网络通信功能，例如建立TCP连接、发送和接收数据、发起HTTP请求等。
处理网络通信事件，例如OnConnect、OnDisconnect、OnReceive等事件。
TCP服务器端示例：
```delphi
uses
IdTCPServer, IdContext, IdGlobal；
type
TMyServer = class
private
FServer: TIdTCPServer；
public
constructor Create；
destructor Destroy； override；
procedure OnExecute（AContext: TIdContext）；
end；
constructor TMyServer.Create；
begin
FServer := TIdTCPServer.Create（nil）；
try
FServer.DefaultPort := 12345；
FServer.OnExecute := OnExecute；
FServer.Active := True；
except
on E: Exception do
ShowMessage（'Error: ' + E.Message）；
end；
end；
destructor TMyServer.Destroy；
begin
FServer.Free；
inherited；
end；
procedure TMyServer.OnExecute（AContext: TIdContext）；
var
Client: TIdContext；
Data: string；
begin
Client := AContext；
try
Client.Connection.IOHandler.ReadLn（Data）；
ShowMessage（'Received: ' + Data）；
Client.Connection.IOHandler.WriteLn（'Hello from server'）；
except
on E: Exception do
ShowMessage（'Error: ' + E.Message）；
end；
end；
```
TCP客户端示例：
```delphi
uses
IdTCPClient, IdGlobal；
type
TMyClient = class
private
FClient: TIdTCPClient；
public
constructor Create；
destructor Destroy； override；
procedure Connect；
procedure SendData（const Data: string）；
end；
constructor TMyClient.Create；
begin
FClient := TIdTCPClient.Create（nil）；
end；
destructor TMyClient.Destroy；
begin
FClient.Free；
inherited；
end；
procedure TMyClient.Connect；
begin
FClient.Host := '127.0.0.1'； //局域网地址
FClient.Port := 12345；
try
FClient.Connect；
ShowMessage（'Connected to server'）；
except
on E: Exception do
ShowMessage（'Error: ' + E.Message）；
end；
end；
procedure TMyClient.SendData（const Data: string）；
begin
FClient.IOHandler.WriteLn（Data）；
end；
```
获取公网IP：
如果你需要获取设备的公网IP，可以使用以下代码：
```delphi
uses
IdHTTP；
function GetPublicIP: string；
var
http: TIdHTTP；
begin
http := TIdHTTP.Create（nil）；
try
Result := http.Get（'http://ipinfo.io/ip'）；
finally
http.Free；
end；
end；
```
通过以上步骤和示例代码，你可以在Delphi中实现公网和局域网的通信。根据具体需求，你可以进一步扩展和优化这些示例代码。