想联接到Internet网络中的一台机器的程序。。。。(100分)

我用什么控件可以使两个在Internet上的程序进行通讯？？
如何得到当前机器的网上IP地址？
还要注意些什么问题？

我在电信局有服务器、有固定IP地址。

Function GetMyIpAddress:String ; //获取本机IP地址
Var
Ip:String;
Ipstr:String;
ch:ARRAY[1..32] of CHAR ;
i:integer;
WSData:TWsAData;
MyHostHostEnt;
Begin
If WSAstartup(2,wsdata)<>0 Then Begin
Result := '';
Exit ;
End;
Try
If GetHostName(@ch[1],32)<>0 Then Begin
Result := '';
Exit ;
End;
Except
Result:= '' ;
Exit ;
End;
MyHost:=GetHostByName(@ch[1]);
If MyHost=Nil Then Begin
Result := '' ; //IP地址为空
Exit ;
End Else Begin
For i:=1 to 4 Do Begin
Ip:=Inttostr(Ord(MyHost.h_addr^[i-1]));
ipStr:=Ipstr+Ip;
If i<4 Then IpStr:=IpStr+'.' ;
End;
Result:=Ipstr ;
End;
End;

用VPN吧，在系统一级将两个在Internet上机器连成局域网，以后就想干啥干啥。

如果没有特殊要求可以考虑用电话线和猫接入对方电脑

或者就用VPN吧

多人接受答案了。