Source position: tachartutils.pas line 380
function Split(
AString: string;
ADest: TStrings = Nil;
ADelimiter: char = '|'
):TStrings;