Aufzählungszeichen in RichEdit ändern

[Markus K.]

Hallo,
ich möchte bei einem RichEdit die Aufzählungszeichen ändern (anstatt der Bullets möchte ich Zahlen verwenden). Ich hatte es wiefolgt versucht, allerdings werden immer noch die Bullets angezeigt.

Delphi-Quellcode:

var  Einstellung: TParaFormat2;
begin
     FillChar(Einstellung, SizeOf(Einstellung), 0);
     Einstellung.cbSize:=SizeOf(Einstellung);
     Einstellung.dwMask:=PFM_NUMBERING;
     Einstellung.wNumbering:=6;
     myForm[Ziffer].REHaupt.Perform(EM_SETPARAFORMAT,0,lParam(@Einstellung));
end;

Die Werte für wNumbering hatte ich in der RichEdit.pas nachgelesen, dort steht:

Code:

 *    PARAFORMAT numbering options (values for wNumbering):
 *
 *      Numbering Type      Value   Meaning
 *      tomNoNumbering         0      Turn off paragraph numbering
 *      tomNumberAsLCLetter    1      a, b, c, ...
 *      tomNumberAsUCLetter    2      A, B, C, ...
 *      tomNumberAsLCRoman     3      i, ii, iii, ...
 *      tomNumberAsUCRoman     4      I, II, III, ...
 *      tomNumberAsSymbols     5      default is bullet
 *      tomNumberAsNumber      6      0, 1, 2, ...
 *      tomNumberAsSequence    7      tomNumberingStart is first Unicode to use
 *
 *   Other valid Unicode chars are Unicodes for bullets.

Könnte mir jemand vielleicht bei diesem Problem helfen? Danke!

Tschüß Markus