Trouver les liens dans un memo

procedure TForm1.Button1Click(Sender: TObject);
var i, p: integer;
s: string;
begin
ListBox1.Clear;
for i := 0 to Memo1.Lines.Count - 1 do
begin
if Pos('http://', Memo1.Lines.Strings[i]) > 0 then
begin
s := '';
for p := Pos('http://', Memo1.Lines.Strings[i]) to
length(Memo1.Lines.Strings[i]) do
if Memo1.Lines.Strings[i][p] <> ' ' then
s := s + Memo1.Lines.Strings[i][p]
else
break;


while Pos(s[length(s)], '..;!")]}?''>') > 0 do
Delete(s, length(s), 1);

file://Gefundene Adresse in die Liste aufnehmen...
ListBox1.Items.Add(s);
end;
end;

if ListBox1.Items.Count > 0 then
Label1.Caption := IntToStr(ListBox1.Items.Count) +
' adresses trouvées.'
else
Label1.Caption := Aucune adresse trouvée.';
end;