1:
2:
3:
4:
5:

var i :integer;
//NICHT Links werden gelöscht!!!
for i := 0 to LinkList.Items.Count-1 do  
if Pos('http://',Form1.LinkList.Items.Item[0].Caption) = 0 then
LinkList.Items.Item[i].Delete;					

1:

function LowerCase(const S: string): string;					

1:

IndexStichwort := Pos(Stichwort, LowerCase(Str));					

1:
2:
3:

Hallo hier ist der Link:
http://blabla.de/bla.exe
bitteschön!					

1:

hallo hier ist der Downloadlink: http://blabla.de/bla.exe bitteschön!					

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:

function ExtractLink(T:string):string;
var FindH,FindP : integer;
begin
//Suche von Http
FindH := Pos('http:\\',LowerCase(T));

//Wenn http nicht gefunden
if FindH = -1 then begin
  FindH := Pos('www',LowerCase(T));
end;

//Wenn nicht gefunden beenden
if FindH = -1 then exit;

//Suche Ende
FindP := Pos('.exe',LowerCase(T));
{
Hier könnt man jetzt alle möglichen Dateiendungen durchschauen, und wenn
eine vorkommt diese setzen, oder nach dem letzten Punkt suchen...
} 

//Extrahiere
Result := Copy(T,FindH,FindP+4);
exit;

end;