由于delphi 6以下对汉字支持有些问题，所以最好先将中文逗号、分号改成英文的，并用unicode方式改，不然由于上下文关系，它会得到莫名结果，程序如下：
uses regexpr;
procedure TForm1.Button1Click(Sender: TObject);
var
  s:String;
  r:tregexpr;
  ap:tstringlist;
begin
  s:='这是aaa；一个测试，你好,不错     ;可能拉bbb';
  s:=stringreplace(widestring(s),widestring('；'),';',[rfReplaceAll]);
  s:=stringreplace(widestring(s),widestring('，'),';',[rfReplaceAll]);
  r:= tregexpr.Create;
  ap:= tstringlist.Create;
  r.Expression:='[; ,]+'; //多个分隔符产并成一行，所以用+
  r.Split(s,ap);
  memo1.lines.AddStrings(ap);
end;
结果为：
这是aaa
一个测试
你好
不错
可能拉bbb

d7下的，也是乱码？！

uses RegExpr;
procedure TForm1.Button1Click(Sender: TObject);
var
  RegExpr: TRegExpr;
  str : string;
  str2 : string;
  I : Integer;
  sl :TStringList;
begin
  RegExpr := TRegExpr.Create;

  str2 := 'S444+345,L555+454;  557+333； 666K+334 桥两两侧,护栏好美的美女\drrrrr/好啊啊';
  try                                 //[^\s*|\s*$]
    RegExpr.Expression := '[\s/,/;/，/；/、/\\//]{1,}';
    //RegExpr.Expression := '\s+|[/，/,/;/；/、] ';

    sl := TStringList.Create;
      Regexpr.Split(str2, sl);
      for i:=0 to sl.Count-1 do
      begin
        str := sl.Strings[i];
        showmessage(str);
      end;

    {I := RegExpr.SubExprMatchCount;
    if RegExpr.Exec(str2) then
    begin
      repeat
      Regexpr.Split(str2, sl);
        str := RegExpr.Match[0];

      until not RegExpr.ExecNext;
    end;  }
  finally
    FreeAndNil(RegExpr);
  end;
end;

我的程序在D2010下也测试没问题

嗯，把中文字符都替换一遍问题解决