Implement `BinStr`, `OctStr`, `HexStr`

```pascal
Function BinStr(Value: Unsigned; Width: Unsigned): String;
Function OctStr(Value: Unsigned; Width: Unsigned): String;
Function HexStr(Value: Unsigned; Width: Unsigned): String;
```

`BinStr($7F, 8)` returns `01111111` etc...