Hi,
schau einfach mal in die Hilfe:
Zitat von
OH:
Wenn index größer als die Länge von String oder kleiner als 1 ist, werden keine Zeichen gelöscht.
Strings sind in Delphi 1 indiziert, nicht 0!
Ansonsten solltest du den Tipp von Klaus01 beherzigen, damit geht es für dich um einiges leichter (du ersetzt alle Vorkommen von Edit2.Text in s durch Edit2.Text + chr(13)).
Gruß Der Unwissende