function  IntToBCD(Hex:longint):longint;
 var b0,b1,b2,b3,b4,b5,b6,b7 : longint;
begin
  b7:=(Hex div 10000000);
  b6:=(Hex mod 10000000) div 1000000;
  b5:=(Hex mod 1000000 ) div 100000;
  b4:=(Hex mod 100000  ) div 10000;
  b3:=(Hex mod 10000   ) div 1000 ;
  b2:=(Hex mod 1000    ) div 100  ;
  b1:=(Hex mod 100     ) div 10   ;
  b0:=(Hex mod 10      );
  Result :=b0+(b1 shl 4)+(b2 shl 8)+(b3 shl 12)
      +(b4 shl 16)+(b5 shl 20)+(b6 shl 24)+(b7 shl 28);
end;