programa en lazarus

[arturom]

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í