function HexStrToBCDStr(sSourceStr: string): string; //轉(zhuǎn)換十六進(jìn)制字符串到BCD編碼格式
var
  I: Integer;
begin
  if (Length(sSourceStr) mod 2) = 1 then sSourceStr := sSourceStr + '0';

  I := 1;

  while I < Length(sSourceStr) do
  begin
    Result := Result + IntToHex(byte(StrToInt('$' + copy(sSourceStr, I, 2))) shr
      4, 2) +
      IntToHex(byte(StrToInt('$' + copy(sSourceStr, I, 2))) and $0F, 2);
    I := I + 2;
  end;                                            // while
end;