не работает код

[Кинельски]

procedure TForm1.Button1Click(Sender: TObject);
var
len,i:integer;
st:string;
begin
len:=memo1.Lines.Count;
for i:=0 to len do
begin
st:=memo1.Lines.Strings[i];
delete(st,pos('v ',st),2);
memo2.lines.Strings[i]:=st+' ';
end;

end;

собственно говоря не хочет он работать, обрабатывает только одну строку из memo1 и на этом все, подскажите что сделать, что бы заработал

[Пепел Феникса]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
     st:string;
begin
Memo2.Lines.Clear;
 for i:=0 to memo1.Lines.Count-1 do
 begin
  st:=memo1.Lines[i];
  delete(st,pos('v ',st),2);
  memo2.lines.add(st+' ');
 end;
end;

у вас просто во втором мемо нет таких строк(+цикл вышел бы за грань списка строк)