Ach ja, bei
Code:
Erwachsene := Trim(Copy(S, [color=#ff0000]19[/color], i - [color=#ff0000]19[/color]));
Kinder := Trim(Copy(S, i + [color=#ff0000]7[/color], MaxInt));
mußt'e mal sehn, ob ich die Werte richtig geschätzt hab und wenn bei den Suchwörtern die Groß-/Kleinschreibung immer stimmt, dann kannst'e natürlich auch die ganzen AnsiLowerCase weglassen, mußt dann natürlich in den Abfragen ebenfalls die Groß-/Kleinschreibung beachten (ansonsten halt alles klein)