Funktion gesucht: Splitten eines Strings nach Trennzeichen

[Moin]

Moin Leute,

Ich suche eine Standard-Delphi-Funktion, welche einen String nach Trennzeichen wie '#' oder ';' aufteilt, entweder auf ein Array, oder nach einem Index!

z. B.:

Code:

String:= '10#Mustermann#Max#Musterstr.#...#'

Die Funktion könnte dann so aussehen:

Code:

wert:= function(string,'#',i)

mit i:= Stelle des Wertes (1 bspw. für 'Mustermann')

Gibt es solch eine Funktion, oder eine ähnliche in Delphi??

ACHTUNG: ich will keine selbstgeschriebene, denn ich benötige sie um im ABI zeit zu sparen ...