Skifte formatering i Richedit

Jeg har et problem med at formatere tekst i en TRichedit.
Jeg kan godt få formateret tekst der er markeret.
Da bruger jeg en kode noget lignende:

function TForm1.CurrText: TTextAttributes;
begin
  if Richedit1.SelLength > 0 then Result := Richedit1.SelAttributes
  else Result := Richedit1.DefAttributes;
end;

procedure TForm1.Spinedit1Change(Sender: TObject);
begin
CurrText.Size := Spinedit1.Value;
Richedit1.Font.Size := CurrText.Size;
end;