Convert Integer to Binary

FUNCTION IntToBin(value, digits: integer): STRING;
VAR
   resultado: STRING;
   i: integer;
BEGIN
   IF digitos > 32 THEN
      digitos := 32;
   Resultado := '';
   i := 0;
   WHILE i < digitos DO
   BEGIN
      IF ((1 SHL i) AND valor) > 0 THEN
         Resultado := '1' + resultado
      ELSE
         Resultado := '0' + resultado;
      inc(i);
   END;
   Result := resultado;
END;

Other function

FUNCTION IntToBin(Value: LongInt; Size: Integer): STRING;
   VAR
      i: Integer;
   BEGIN
      Result := '';
      FOR i := Size - 1 DOWNTO 0 DO
         Result := Result + Chr(48 + Integer((Value AND (1 SHL i)) <> 0));
   END;