[Assistant]

какая то магия у вас написана, а так:

Код:

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