//--------------------------------------------------------------------
//【函式作用】傳回分解後的字串群。
//【輸入引數】
//  vOriStr         欲分解的來源字串。
//  [vDelimiter]    選擇性引數，字串分隔字元。預設字元為',';
//【函式傳回】TStringList物件。
//【函式說明】
//‧此函式是否適用於「雙位元組」碼字串（即中英字混碼）？我還不能百分確定。
//‧使用此函式時，請加入 uses StrUtils。
//【作者版本】Dalman, 2002/09/17, 1.0.0。    function _split(const vOriStr: AnsiString; const vDelimiter: AnsiString=','): TStringList;
var
  i: Integer;
  r: TStringList;
  s, t: AnsiString;
begin
  try
    try
      r := TStringList.Create();
      s := vOriStr;
      if s <> '' then begin
        repeat
          i := Pos(vDelimiter, s);                                            //找出第一個Delimiter的索引位置。
          t := Trim(IfThen(i > 0, Copy(s, 1, i - 1), s));                     //若找到索引，則將子字串取出。
          r.Append(t);
          Delete(s, 1, i);
        until i = 0;
      end;
    except
      on e: Exception do; //ignore errors.
    end;
  finally
    Result := r;
  end;
end;

引言: 【源起】 因小弟目前在客戶專案上碰到需將有分界字元的字串拆解成數個子字串，而Delphi 6 竟然缺席此一個重要應用的函式，因此自己 DIY 了一個。 【冀求】 若各位大大有更好的程式寫法，請不吝指教哦！

//--------------------------------------------------------------------
//【函式作用】傳回分解後的字串群。
//【輸入引數】
//  vOriStr         欲分解的來源字串。
//  [vDelimiter]    選擇性引數，字串分隔字元。預設字元為',';
//【函式傳回】TStringList物件。
//【函式說明】
//‧此函式是否適用於「雙位元組」碼字串（即中英字混碼）？我還不能百分確定。
//‧使用此函式時，請加入 uses StrUtils。
//【作者版本】Dalman, 2002/09/17, 1.0.0。    function _split(const vOriStr: AnsiString; const vDelimiter: AnsiString=','): TStringList;
var
  i: Integer;
  r: TStringList;
  s, t: AnsiString;
begin
  try
    try
      r := TStringList.Create();
      s := vOriStr;
      if s <> '' then begin
        repeat
          i := Pos(vDelimiter, s);                                            //找出第一個Delimiter的索引位置。
          t := Trim(IfThen(i > 0, Copy(s, 1, i - 1), s));                     //若找到索引，則將子字串取出。
          r.Append(t);
          Delete(s, 1, i);
        until i = 0;
      end;
    except
      on e: Exception do; //ignore errors.
    end;
  finally
    Result := r;
  end;
end;

  a:= _split('aaaaa, bbbbbb, ccccc, ddddd');
  for i:= 0 to a.count - 1 do begin
    memo1.lines.add(a.strings[i]);
  end;
  a.free;

小弟看了 Delphi 6 線上文件及 WrapText() 函式原始碼後，有些小小心得：    ‧若單純分解字串成多列子字串，可以使用 WrapText() 函式。
‧WrapText() 函式的程式碼因「多適用性」功用關係，實作滿複雜的。
 且分解後的子字串會包含 Delimiter 字串，需多一道剔除字串作業，
 若用於 _split() 內勢必降低字串分解處理效率。
‧基於「真善美」的理想，個人又改良了 _split() 函式實作碼部份，功能一樣哦！    
//----------------------------------------------------------------------------
//【函式作用】傳回分解後的字串群。
//【輸入引數】
//  vOriStr         欲分解的來源字串。
//  [vDelimiter]    選擇性引數，字串分隔字元。預設=',';
//【函式傳回】TStrings物件。
//【作者版本】Dalman, 2002/09/24, 1.1.0。
//【函式說明】此函式可適用 MBCS 字集（即中英文字混合）。    function _split(const vOriStr: AnsiString; const vDelimiter: AnsiString=','): TStrings;
var
  i: Integer;
  s: AnsiString;
begin
  try
    result := TStringList.Create();
    s := Trim(vOriStr);
    repeat
      i := Pos(vDelimiter, s);                                              //找出第一個Delimiter的索引位置。
      if i = 0 then
        result.Append(s)
      else begin                                                            //若找到Delimiter時，則...
        result.Append(Copy(s, 1, i - 1));                                   //複製Delimiter字串之前的字串。
        Delete(s, 1, i);
      end;
    until i = 0;
  except
    on e: Exception do; //ignore errors.
  end;
end;