整数显示二进制字符串

function IntToBin(Value: Integer; Count: Integer = 32): string;
var
  iTemp: Integer;
begin
  Result := '';
  while Count > 0 do
  begin
    iTemp := Value shr (Count - 1) and 1;
    case iTemp of
      1:
        Result := Result + '1';
      0:
        Result := Result + '0';
    end;
    Dec(Count);
  end;
end;