Create legal outlines 1., 1.1, 1.1.1, ...

support

You need to modify the numbering style sheet:

Code

for i := 1 to 9 do
      with WPRichText1.NumberStyles.AddOutlineStyle(1, i) do
      begin
        Style := wp_1;
        TextB := '';
        TextA := '.';
        Font := '';
        Indent := 360 * i;
        UsePrev := TRUE;
      end;

The numbering style will be reset by the next 'Clear'. So you can execute the code in the OnClear event.