[GriLab]

Может это тебе поможет:

Код:

function ParseStr(S, SubStr: String; Index: Integer): String;
var
  i: Integer;
  BlockStr: String;
begin
  if (S = '') or (SubStr = '') then Exit;
  if Length(S) < Length(SubStr) then Exit;
  if Copy(S, Length(S) - Length(SubStr), Length(SubStr)) <> SubStr then
    S := S + SubStr;
  for i := 1 to Index do
  begin
    BlockStr := Copy(S, 0, Pos(SubStr, S) - 1);
    S := Copy(S, Pos(SubStr, S) + Length(SubStr), Length(S));
  end;
  Result := Trim(BlockStr);
end;