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

function GetInetClietIP: String;
var
  IdHttp: TIdHttp;
  I : integer;
  StringList: TStringList;
begin
  RESULT := '';
  IdHttp := TIdHttp.Create(nil);
  StringList := TStringList.Create;
  Try
    StringList.Add(IdHttp.get('http://checkip.dyndns.org'));
    for I := 0 to Length(StringList.Text) do begin
      if StringList.Text[I] in [#46, #48..#57] then RESULT := RESULT+StringList.Text[I];
      end;
  finally
    StringList.Free;
    IdHTTP.Free;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

function Abfrage(eing1,eing2:String): Integer;
var suchstr,gogfen: String;
    n: Integer;
begin
try
suchstr := 'von ungefähr <b>';
gogfen := form1.htp.Get('http://www.google.de/search?&q="'+eing1+'"+"'+eing2+'"');
flag_red := false;
flag_sch := false;
  if pos('<p><p><br>Es wurden keine Standard-Webseiten gefunden, in',gogfen) <> 0 then flag_red := true;
  if pos('<br><br>Es wurden keine mit Ihrer Suchanfrage -',gogfen) <> 0 then flag_red := true;
  if pos('<p><font color=#cc0000 class=p>Meinten Sie: </font>',gogfen) <> 0 then flag_sch := true;
  n := pos(suchstr,gogfen)+16;
  if n <> 0 then
      begin
     gogfen := copy(gogfen,n,length(gogfen)-n);
     n := pos('<',gogfen)-1;
     gogfen := copy(gogfen,1,n);
     repeat
     if pos('.',gogfen) > 0 then delete(gogfen,pos('.',gogfen),1);
     until pos('.',gogfen) = 0;
     result := StrToInt(copy(gogfen,1,n));


      end else result := 0;
     except
     result := 0;
     end;
end;