Fehler in einer while Schleife

[BenjaminH]

Ich würde das so machen, ich denke das ist das einfachste.

Delphi-Quellcode:

p:Integer;
pic_start := '<img src="'; 
p:=pos(pic_start, Memo1.Text);
[etc]
while p<>0 do
Begin
  Listbox1.Items.Add(substr(Memo1.Text,Copy(Memo1.Text,p+Length(pic_start),PosEx('"',Memo1.Text,p+Length(pic_start))); 
  p:=posex(pic_start, Memo1.Text,p);
End;