[porphiriy]

Текст в Мэмо1 должен профильтровываться и в Мэмо2 должны попадать только ссылки на сайты. Они-то попадают, но только первые две. Никак не пойму почему

Код:

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