RichEdit + FontDialog

[Moin]

Tach erst ma!

Ich würde gerne mit einem FontDialog den Markierten Text einer RichEdit
Formatieren, hab auch schon lange im Forum gesucht und viel gefunden.
Troz dem funzt es nich

Ich brauche Hilfeeee!!!

Delphi-Quellcode:

If FontDialog.Execute
      Then
         With Rich.SelAttributes do
          begin   Font  := FontDialog.Font;
                  Font.Style := FontDialog.Font.Style;
                  Font.Color:= FontDialog.Font.Color;

          end;

Das programm startet zwar, aber der markierte Text verändert sich nich

Danke im Vorraus

P.S.: ich komm mir wie n absoluter Anfänger vor