function ParseWord(const Source,Table:String;var Index:Integer):String;

Sequential,left to right token parsing using a table of single
character delimiters. Delimiters within quoted strings are ignored.
Quote delimiters are not allowed in Table.

Index is a pointer (initialize to ‘1’ for first word) updated by the
function to point to next word. To retrieve the next word,simply
call the function again using the prior returned Index value.

Note: If Length(Resultant) = 0,no additional words are available.
Delimiters within quoted strings are ignored. (my emphasis)

这是我到目前为止：

function ParseWord( const Source,Table: String; var Index: Integer):string;
var
  RE : TRegEx;
  match : TMatch;
  Table2,chars : string;
begin
  if index = length(Source) then
  begin
    result:= '';
    exit;
  end;

  // escape the special characters and wrap in a Group
  Table2 :='['+TRegEx.Escape(Table,false)+']';
  RE := TRegEx.create(Table2);
  match := RE.Match(Source,Index);
  if match.success then
  begin
    result := copy( Source,Index,match.Index - Index);
    Index := match.Index+match.Length;
  end
  else
  begin
    result := copy(Source,length(Source)-Index+1);
    Index := length(Source);
  end;
end;

  while ( Length(result)= 0) and (Index<length(Source)) do
  begin
    Inc(Index);
    result := ParseWord(Source,Table,Index);
  end;

欢呼和谢谢.