RichEdit Formatierung:

[Helmi]

Vielleicht so...

Delphi-Quellcode:

  with RichEdit1 do
    begin
      If SelLength > 0 then
        begin
          Label1.Caption      := SelAttributes.Name; //Schriftart
        end;
    end;

[Edit]

Um die Combobox anzuwählen kannst es so machen:

Delphi-Quellcode:

var
  i: Integer;

begin
  with RichEdit1 do
    begin
      If SelLength > 0 then
        begin
          i := ComboBox2.Items.IndexOf(IntToStr(SelAttributes.Size));

          ComboBox2.ItemIndex := i;
        end;
    end;
end;

Aber die Schriftart kannst selbst machen