du hast nen kleinen Denkfehler. Der Fehler liegt hier
S := Copy(S,Pos1,Pos2);
Der dritte parameter gibt die länge an und nicht das ende
Wenn dein Text beispielsweise so aussieht
Code:
Irgendwas davor <quote>Kleiner Test, Bla irgendwas</quote>Irgendwas danach
Dann dann bewirtk dein copy das nicht nur so viel zeischen kopiert werden wie zwischen <quote> und </quote> sondern es werden auch noch die zeichen vor dem ersten quote dazu gezählt..
dein zweiter parameter müsste "Pos2 - Pos1" oder so heißen...
[Edit1]Ich werd alt, war schon wieder zu langsam
[/Edit1]