Hola,
suponiendo que la variable
a sea un entero debes usar esta función para convertir el número a entero:
Código Delphi
[-]
a := StrToInt( decimal.Text );
A continuación usa esta para pasar de entero a binario:
Código Delphi
[-]
Function IntToBin ( entero: LongInt; Digitos: integer=8): string;
begin
result := StringOfChar ( '0', Digits ) ;
while entero > 0 do begin
if ( entero and 1 ) = 1 then
result [ digitos ] := '1';
dec ( digitos ) ;
entero := entero shr 1;
end;
end;
Esta función está sacada de
aquí