Font Frage

[hansklok]

Hallo,

ich habe hier eine Procedure. Wenn ich nun über Toolbuttons die unteren Formatierungsstyle verpasse, den funktioniert immer nur der letzte Style. In diesem Falle StrikeOut. Warum

Delphi-Quellcode:

procedure TForm1.GetStyles(var Font: TFont; var Pen: TPen; var Brush: TBrush);
begin
  Font.Color:= Panel6.Color;
  Font.Name:= ComboBox4.Text;
  Font.Size:= StrToInt(ComboBox5.Text);
  Pen.Color:= Panel6.Color;
  Pen.Style:= TPenStyle(Form2.ComboBox1.ItemIndex);
  Pen.Width:= Form3.ComboBox1.ItemIndex+1;
  Brush.Color:= Panel7.Color;
  Brush.Style:= TBrushStyle(Form2.ComboBox2.ItemIndex);
[b][color=blue]  //FontStyle Formatierungsstyles
  if ToolButton23.Down then // funktioniert nicht
     Font.Style:= [fsBold] else Font.Style:= [];
  if ToolButton24.Down then // funktioniert nicht
     Font.Style:= [fsItalic] else Font.Style:= [];
  if ToolButton25.Down then // funktioniert nicht
     Font.Style:= [fsUnderline] else Font.Style:= [];
  if ToolButton26.Down then // funktioniert
     Font.Style:= [fsStrikeOut] else Font.Style:= [];[/[/color]b]
end;

Danke für eure Vorschläge!