toolbar>toolbutton down false,true

[betirsolt]

всем привет непонятки с toolbar>toolbutton down false,true

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
if  toolbutton4.Down=false then
toolbutton4.Down:=true
else
if toolbutton4.Down=true then
toolbutton4.Down:=false;
richedit1.SelAttributes.Style:=[fsbold];
end;

вот код,кнопка по идее должна нажиматься и при повторном нажатии отпускаться,но она нажимается и потом не отпускается,не понимаю почему так,подскажите где я не прав тут?

[Аватар]

toolbutton.Style:=tbsCheck и убрать присвоение в toolbutton4.Down, оно на автомате будет

[betirsolt]

спасибо помогло))
вот код может кому то понадобиться

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
if  toolbutton4.Down then
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsbold]
else RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style-[fsbold];
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
if  toolbutton5.Down then
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsitalic]
else RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style-[fsitalic];
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
if  toolbutton6.Down then
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsunderline]
else RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style-[fsunderline];
end;