[eXplorer]

Код:

var 
   i: integer;
begin
   for i:=0 to Memo1.Lines.Count-1 do
   if Pos('http',Memo1.Lines[i])<>0
   then
      Memo2.Lines.Add(memo1.Lines[i]);
end;