Oder aber den QRDBText bei Font auf Wingdings einstellen & anschließend das OnPrint Event des Feldes auf
Das ist auch ein schöner Lösungsweg.
Wobei man versuchen sollte den Wert des Feldes über den Parameter Sender rauszuziehen:
Delphi-Quellcode:
procedure TFormDruckenIBC.QRDBTextXXPrint(sender: TObject; var Value: String);
var
f : TField;
begin
f := (Sender as TQRDBText).Dataset.FieldByName((Sender as TQRDBText).DataField);
if (f.AsBoolean then
then Value := #254
else Value := #168;
end;