Ich kann dir grade leider nicht einen Code zeigen, da das Update2 für Delphi06 gerade mein Delphi ruiniert
Du kannst doch aber z.B. folgendes machen:
(o as TLabel).Font.Styles
Wenn du unbedingt mit 1,2... für die einzelnen Styles arbeiten willst, würde ich ne Case-Anweisung verwenden. Ansonsten übergibt der Prozedure doch gleich die FontStyles. So ist es auch möglich dass du z.B. fsBold und fsItalic mit einem Aufruf einstellen kannst.