字符串分隔符问题

[flyfatcat]

一字符串，其中有分隔符，例如:'aaa|123|56565|fgdf'，可以很快得到每一个字段值吗？循环方法太慢了。
我看到类似的帖子，有如下方法：
sl : Tstringlist;
sl := Tstringlist.Create;
sl.DelimitedText:='123|23423|354234|234234';
sl.Delimiter:='|';
我试过，当分隔符是','（逗号）时，上面的方法是可以的，但当分隔符是'|'时，方法就不能成功了。请问有没有使用通用分隔符的方法呢？
另外ExtractStrings函数如何使用呢？我看了调用它的参数类型，都不知道如何设置。那位高手能给我个例子呢？
多谢了

[cuteant]

var
s: string;
sl: TStringList;
begin
s := '123|23423|354234|234234';
ExtractStrings([], ['|', PChar(s), sl]);
//.....这样就已经存入sl中了
end;

[cuteant]

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
sl: TStringList;
i: integer;
begin
s := '123|23423|354234|234234';
sl := TStringList.Create;
//ExtractStrings([], ['|'], PChar(s), sl); //这个一样不能以'|'分隔
s := StringReplace(s, '|', #13#10, [rfReplaceAll]);
sl.Text := s;
//.....这样就已经存入sl中了
for i:=0 to sl.Count-1 do
ShowMessage(sl[i]);
FreeAndNil(sl);
end;

[flyfatcat]

cuteant(我这张旧船票还能否登上你的破船|涛声是否依旧)，你太利害了，真是让小弟佩服的五体投地，多谢了