Schleife geht net ???

[Bernd29bln]

wieso ist mein memo jetzt leer?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a, i: integer;
    s: string;

begin
for i := 0 to Memo1.Lines.Count -1 do
  begin

  s := Memo1.Lines[i];
  a:=pos('<harf"', s)+5;
  delete(s, 1, a);
  a:=pos('"', s);
  Memo1.Lines.Text:=copy(s, 1, a-1);
end;
end;