Zahlen umwandeln (Bin, Oct, Dec, Hex)

[Jasocul]

Wenn wir schon dabei sind:
  bolPruef := UpCase(Edit1.Text[i]) in ['0'..'9', 'A'..'F'];