Problem bei Löschen aus String

[Stevie]

Delphi-Quellcode:

repeat
  temp := SemikolonString;
  SemikolonString := StringReplace(temp, ';;', ';', [rfReplaceAll]);
until SemikolonString = temp;