Alternativ kann man auch eine globale Konstante erstellen:
Delphi-Quellcode:
const
cBoolStr: array[Boolean] of string = ['aus', 'an'];
...
cBoolStr[B1];
cBoolStr[B2];
cBoolStr[B3];
Von einem Überschreiben der Standard-Arrays würde ich auch abraten. Die werden auch an anderen Stellen benutzt.