Skriftstørrelse i Richedit komponent

Jeg har en form med en Richedit component, og 2 comboboxe.
I en combobox kan jeg vælge skrifttypen, men jeg ved ikke hvordan jeg får de til skrifttypen hørende skriftstørrelser i den anden combobox.

Jeg bruger coden for at tilføje skrifttypen

procedure TBrevForm.FontComboBoxClick(Sender: TObject);
begin
  if Richedit.Visible then
    Richedit.SelAttributes.Name := Fontcombobox.Text;
  if BreveMedRegningPanel.Visible then
    RegningDBRichEdit.SelAttributes.Name := Fontcombobox.Text;
end;