String nach Trennzeichen aufteilen

[himitsu]

S1 := Copy(S, 1, Pos('|', S) - 1);
S2 := Copy(S, Pos('|', S) + 1, Length(S));