also entweder du schneidest den string bis zur gefundenen Stelle ab, und suchst nochmal
oder du verwendest
ich glaube eine TStringList wo du den string einfach als
delimited-Text übergibst und den delimiter auf '~' stellst, und der String wird dann automatisch in ein Feld aufgeteilt.
such einfach mal nach delimited TStringList