Автоматическое маркирование абзацев

Memo1->Lines->Add( char(17) + " Супер-пупер текст" ); // char(7)

TParaFormat2 fmt;
 
memset( &fmt, sizeof( fmt ), 0 );
fmt.cbSize = sizeof( fmt );
fmt.dwMask = PFM_NUMBERING || PFM_NUMBERINGSTART || PFM_NUMBERINGSTYLE || PFM_NUMBERINGTAB;
fmt.wNumbering = 1;
/// wNumbering:
// 0 - нет нумерации
// 1 - маркированный список    (•, •, •, ...).
// 2 - арабские цифры          (1, 2, 3, ...).
// 3 - маленькие буквы         (a, b, c, ...).
// 4 - большие буквы           (A, B, C, ...).
// 5 - маленькие римские цифры (i, ii, iii, ...).
// 6 - большие римские цифры   (I, II, III, ...).
// 7 - последовательность символов Unicode/
fmt.wNumberingStart = 30;
/// wNumberingStart:
//  Число, с которого начинается нумерация./
fmt.wNumberingStyle = 0x100;
/// wNumberingStyle:
// Стиль нумерации
// 0     :  1)
// $100  : (1)
// $200  :  1.
// $300  :  1
// $400  : убрать список
// $8000 : продолжает нумеровать список не изменяя стиля/
//  fmt.wNumberingTab = 2000;//div(1440,4).quot;
/// wNumberingTab:
// расстояние между номером и текстом параграфа/
RichEdit1->Perform( EM_SETPARAFORMAT, 0, LPARAM( &fmt ) );

Form->KeyPreview = true;
...
// OnKeyPress
if (Key == VK_RETURN) { /* код */ }

void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
if (Key==VK_RETURN)
{
TParaFormat2 fmt;
 
memset( &fmt, sizeof( fmt ), 0 );
fmt.cbSize = sizeof( fmt );
fmt.dwMask = PFM_NUMBERING || PFM_NUMBERINGSTART || PFM_NUMBERINGSTYLE || PFM_NUMBERINGTAB;
fmt.wNumbering = 5;
/// wNumbering:
// 0 - нет нумерации
// 1 - маркированный список    (•, •, •, ...).
// 2 - арабские цифры          (1, 2, 3, ...).
// 3 - маленькие буквы         (a, b, c, ...).
// 4 - большие буквы           (A, B, C, ...).
// 5 - маленькие римские цифры (i, ii, iii, ...).
// 6 - большие римские цифры   (I, II, III, ...).
// 7 - последовательность символов Unicode/
fmt.wNumberingStart = 30;
/// wNumberingStart:
//  Число, с которого начинается нумерация./
fmt.wNumberingStyle = 0x100;
/// wNumberingStyle:
// Стиль нумерации
// 0     :  1)
// $100  : (1)
// $200  :  1.
// $300  :  1
// $400  : убрать список
// $8000 : продолжает нумеровать список не изменяя стиля/
//  fmt.wNumberingTab = 2000;//div(1440,4).quot;
/// wNumberingTab:
// расстояние между номером и текстом параграфа/
Memo1->Perform( EM_SETPARAFORMAT, 0, LPARAM( &fmt ) );
}
}
//---------------------------------------------------------------------------

//  fmt.wNumberingTab = 2000;//div(1440,4).quot;
/// wNumberingTab:
// расстояние между номером и текстом параграфа/

fmt.wNumberingTab = 0;

Memo1->Lines->Add( char(17) + " Супер-пупер текст" ); // char(7)

Memo1->Lines->Add( char(17) + "Супер-пупер текст" ); // char(7)

//  fmt.wNumberingTab = 2000;//div(1440,4).quot;
/// wNumberingTab:
// расстояние между номером и текстом параграфа/

RichEdit1->WantTabs= true;

//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
 
{
if(Key == VK_RETURN)
    {
        RichEdit1->Lines->Add("\t");
        Key= 0;
    }
}
//---------------------------------------------------------------------------

fmt.dwMask = PFM_NUMBERING | PFM_NUMBERINGSTART | PFM_NUMBERINGSTYLE | PFM_NUMBERINGTAB;