Wir hätten auch noch was mit RegEx
oder verschiedene FOR-Schleifen
oder ...
for var i := 1 to S.Length do if Copy(S, i, 2) = '''''' then Delete(S, i, 1);

und nein, es werden nicht alle ' gelöscht, auch wenn es vielleicht so aussieht
Ein Therapeut entspricht 1024 Gigapeut.