RichEdit Schriftgröße ändern ?

[Popov]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with RichEdit1 do
  begin
    Lines.Text := 'Zwischen zwei Zwetschgen zwitschern zwei Schwalben';
    SelStart := 9;
    SelLength := 15;
    SelAttributes.Name := 'Courier New';
    SelAttributes.Color := clRed;
    SelAttributes.Size := 15;
    SelAttributes.Style := [fsBold, fsItalic];
    SelAttributes.Style := SelAttributes.Style - [fsItalic];
  end;
end;