Ach ja, bezüglich der ganzen Pos und Delete:
Kennt dein Delphi noch kein
PosEx?
Wenn nicht, dann siehe
PosEx.
Damit mehrmals nach dem nächsten #9 suchen, dann s1 rauskopoieren, nach dem nächsten #9 suchen und s2 rauskopieren, ohne dabei löschen zu müssen.
Abgesehn davon, daß man sich den String auch über
Explode-Funktionen, bzw. mit Hilfe einer TStringList, an den #9 aufplitten lassen könnte, wobei man mehrere Einzelstrings zurückbekommt und sich dann nur noch den gewünschten String rauszusuchen braucht.
Aber mangels lauffähigem Testprogramm, wirst du den Fehler, beim Füllen der Edits, selber suchen müssen. (Debuggen und nachsehn was ist)