Problem z przyciskami - Delphi

[F4RAON]

Mam problem z przyciskami . Przepisuje do przycisku action który ma np. pogrubić tekst, pisze w richedit i jak chce nacisnąć na przycisk to nagle wszystkie robią sie szare i niedostępne a skróty mi działają. Wiecie może jak to naprawić? 

 

Lub jak chce to zrobić speedbuttonem to też nie uzyskuje żadnego efektu.

 

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

If SpeedButton1.Down Then

re.SelAttributes.Style:= re.SelAttributes.Style + [fsBold]

else

re.SelAttributes.Style:= re.SelAttributes.Style - [fsBold];

end;

[mirraseq]

Z tego co pamiętam też kiedyś próbowałem dynamicznie w RichEdit zmieniać dynamicznie styl konkretnych wyrazów ale porzuciłem próby po pewnym czasie. Wydaje mi się, że lepiej do takiego zadania użyć komponentów specjalnie do tego przystosowanych (np. z paczki JEDI VCL).