Bold Button wieder deaktivieren?

[T.E.]

Hallo!

Ich hab mein Programm mit einer Bold procedure erweitert, die wie foglt aussieht:

Delphi-Quellcode:

procedure TTMPV.ToolButton14Click(Sender: TObject);
begin
ToolButton14.Down := true;
if ToolButton14.Down then
begin
TempVIewer.SelAttributes.Style:=TempViewer.SelAttributes.Style + [fsBold];
TempViewer.SetFocus;
end else
begin
TempVIewer.SelAttributes.Style:=TempVIewer.SelAttributes.Style - [fsBold];
TempViewer.SetFocus;
end;
end;

So soweit klappt das auch...nur weiß ich nit wirklich wie ich das schaffen soll den Button wieder auf
ToolButton14.Down := false; setzen kann... hat da jemand einen guten tipp??

EDIT: Im Moment habe ich die "Lösung" mit OnContextPopup...

Delphi-Quellcode:

procedure TTMPV.ToolButton14ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
ToolButton14.Down := false;
TempVIewer.SelAttributes.Style:=TempVIewer.SelAttributes.Style - [fsBold];
TempViewer.SetFocus;

end;

aber die hat ja den Nachteil das man jedes mal erst mit der rechten maustaste klicken muss...