如果你用XE3以上版本的Delphi,可以用下面的方式来分隔两个标签中的字符串。QString同时提供了一个类似的函数叫做StrBetweenW，但不同的是只取首个标签内的内容。

var
  var_sText1: string;
  var_psamArr: TArray;
  I: Integer;
begin
  var_sText1 := '123';
 
   var_psamArr := var_sText1.Split(['',''], TStringSplitOptions.ExcludeEmpty);
   for I := Low(var_psamArr) to High(var_psamArr) do
   begin
     SaveOrderLog(Format('check_3_%d.txt', [I]), var_psamArr[I]);
   end;
end;