Problem bei Schrift ändern

[HTML04]

Ich versuche momentan ein Textverarbeitung zu programmieren. Benutze allerdings Delphi erst seit 2 Monaten. Ich wollte in meinem folgenden Quelltext die bisherige Eingabe ins richeditfeld zu markieren und dann die Eigenschaften einzeln mithilfe eines FontDialogs zu ändern. Was habe ich falsch gemacht, denn momentan bekomme ich keine Änderung zu sehen.

Delphi-Quellcode:

begin
 Mark := richedit1.SelText;
if Mark = '' then
begin
 richedit1.selectall;
 fontdialog1.Execute;
 Eig1 := richedit1.SelAttributes;
 Eig2 := Richedit1.Font;
 Eig1.Color := Eig2.Color;
 Eig1.Name := Eig2.Name;
 eig1.Size := Eig2.Size;
 eig1.Style:= Eig2.style;

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]