Implode w delphi

Czy jest funkcja która by działała jak Implode z PHP czyli majac stringa typu
"abc,dsad,gdhfg,cvxb,asdfs"
rozdzieliła by go na elementy tablicy według określonego separatora??
pisanie recznie takiej funkcji by było pewnie wolne w działaniu a zależy mi na wydajności.

Uscislajac, w PHP do tego sluzy funkcja explode ;)
Jezeli korzystasz z .NET - to tak: Wykorzystanie funkcji Split w Delphi 8

Jezeli nie - to nie istnieje: Jak rozdzielić łańcuch tekstowy wg. jakiegoś znaku

Chamskie i szybkie rozwiazanie:

  StrList := TStringList.Create;
  StrList.Text := StringReplace(Text, '|', #13, [rfReplaceAll]);