1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function _RouterIPFinden(Url:string):string;
var //uses NMHttp,SysUtils
  NHttp:TNMHTTP;
begin
  NHttp := TNMHTTP.Create(nil);
  try
    result := '';
    try
      NHttp.TimeOut := 20000;
      NHttp.Get(Url);
    except on E: Exception do exit;
    end;
    result := NHttp.Body;
  finally
    NHttp.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TMain.Button1Click(Sender: TObject);
var //uses IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP
  IdHTTP :TIdHTTP;
begin
 IdHTTP := TIdHTTP.Create(nil);
 try
   IdHTTP.ReadTimeout := 20000;
   Memo1.Text:=idHTTP.Get('http://www.DeinServer.de/yourip.php');//siehe oben das PHP Teil
 finally
   IdHTTP.Free;
 end;
end;