delphi 字符串 按固定长 分割