[M.A.D.M.A.N.]

Код:

procedure TForm1.Button4Click(Sender: TObject);
var i: integer;
begin
  for i := o to Memo1.Lines.Count - 1 do
    if Pos('http',Memo1.Lines[!]) <> o
    then
      Memo2.Lines.add(Memo1.Lines[i]);
end;