@axel: dafür brauchst du aber auch eine "aktuelle" Variable/Konstante.
deine Funktion + diese Definition (ähnliches gilt auch für die anderen Zählfunktionen) würde hier 8 liefern und nicht 4.
Delphi-Quellcode:
type
TFontStyle = (fsBold=0, fsItalic=1, fsStrikeOut=6, fsUnderline=7);
TFontStyles = set of TFontStyle;
x := CountStyles([TFontStyle(0)..TFontStyle(7)]);
// oder
x := CountStyles([fsBold..fsUnderline]);