procedure TForm4.SpeedButton7Click(Sender: TObject);
begin try
if (Editor.Paragraph.Numbering = JvRichEdit.nsNone) then Editor.Paragraph.Numbering:=JvRichEdit.nsBullet
else if Editor.Paragraph.Numbering = JvRichEdit.nsBullet then Editor.Paragraph.Numbering:=JvRichEdit.nsArabicNumbers
else if Editor.Paragraph.Numbering = JvRichEdit.nsArabicNumbers then Editor.Paragraph.Numbering:=JvRichEdit.nsLoCaseLetter
else if Editor.Paragraph.Numbering = JvRichEdit.nsLoCaseLetter then Editor.Paragraph.Numbering:=JvRichEdit.nsUpCaseLetter
else if Editor.Paragraph.Numbering = JvRichEdit.nsUpCaseLetter then Editor.Paragraph.Numbering:=JvRichEdit.nsLoCaseRoman
else if Editor.Paragraph.Numbering = JvRichEdit.nsLoCaseRoman then Editor.Paragraph.Numbering:=JvRichEdit.nsUpCaseRoman
else if Editor.Paragraph.Numbering = JvRichEdit.nsUpCaseRoman then Editor.Paragraph.Numbering:=JvRichEdit.nsNone
except end;End;