Convert DecToRoman

Function HextoBin ( Hexadecimal : String ) : String ;

Const

   BCD         : Array[ 0..15 ] Of String =

      ( '0000' , '0001' , '0010' , '0011' , '0100' , '0101' , '0110' , '0111' ,

      '1000' , '1001' , '1010' , '1011' , '1100' , '1101' , '1110' , '1111' ) ;

Var

   i           : integer ;

Begin

   For i := Length ( Hexadecimal ) Downto 1 Do

      Result := BCD[ StrToInt ( '$' + Hexadecimal[ i ] ) ] + Result ;

End ;

            Example :

                Caption := HextoBin ( 'ABCDEF' ) ;