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

uses mmsystem;
var
check:integer;

//Deklarierung
var str:string;
begin
//Setze Check auf 1 
check:=1;
//Leere String
str:='';
//String wird mit Inhalt einer bestimmten Adresse gefüllt
str:=idhttp.Get(edit1.text);
//Kleine Pause damit auch wirklich alles in den String kommt
sleep(600);
//Sollte folgende Zeichenkette gefunden werden, setze integer check auf 0
if pos('Keine passenden Ergebnisse.',str) > 0 then
check:=0;
//Sollte die Zeichenkette nicht gefunden werden, gibt es ein "Ding"
if check=1 then
PlaySound('Ding', 0, SND_SYNC);                    

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

uses mmsystem; 
var 
check:integer; 


//Deklarierung 
var str:string; 
begin  
  //String wird mit Inhalt einer bestimmten Adresse gefüllt 
  str:=idhttp.Get(edit1.text); 

  if pos('keine passenden ergebnisse.',LowerCase(str)) <> 0 then 
  check:=0 else check := 1;
  
  //Sollte die Zeichenkette nicht gefunden werden, gibt es ein "Ding" 
  if check=1 then PlaySound('Ding', 0, SND_SYNC);
end;                    

1:

idHttp.Request.UserAgent := 'IE7'; //                    

1:
2:
3:
4:

idhttp.Request.UserAgent := 'IE';
//
idhttp.AllowCookies := False;
idhttp.HandleRedirects := True;                    

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

function Find(Link:string):boolean;
var idHttp : TidHttp;
str:string;
begin
idhttp := TidHttp.Create(nil);
idhttp.Request.UserAgent := 'IE9';
idhttp.AllowCookies := False;
idhttp.HandleRedirects := True;
//
//String wird mit Inhalt einer bestimmten Adresse gefüllt
str:=idhttp.Get(Link);

if pos('keine passenden ergebnisse.',LowerCase(str)) <> 0 then Result:= True else Result := False;

idhttp.Free;
end;

//Aufrufen
Find(Die Linkadresse);                    

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

function GetLink(account:string;page:integer;Kategorie:string):string;
begin
//HauptLink
hLink := 'http://www.pcfreunde.de/forum/themenabfrage/?type=accountTopics&' 
//Seite
page := 'page='+strToInt(Seite)+'&';
//Deine Account ID
accID := 'accountId='+account+'&';
//Die Kategorie
cat := 'categoryForumId='+ Kategorie+'&';
//Ende vom Link
eLink := '&btnApply.x=70&btnApply.y=6';
Result := hLink+page+accID+cat+eLink;
end;

//Aufruf
//Deine AccountNummer brauchst du und Seite=1 und die Kategorie
Link := GetLink('50202',1,'F13');