var
pn : TParaNumbering;
pm: TParaMetric;
begin
pn.Indent:= 14; //indents text from the right of bullet, not indenting the bullet itself
txtNote1.GetParaNumbering(txtNote1.SelStart, pn);
txtNote1.getParaMetric(txtNote1.SelStart, pm);
if (pn.Style = pnNone) then
begin
pn.Style:= pnBullet; //or pnNumber
pm.FirstLine := 24;
txtNote1.SetParaMetric(txtNote1.SelStart, txtNote1.SelLength,pm);
txtNote1.SetParaNumbering(txtNote1.SelStart, txtNote1.SelLength,pn);
end
else
begin
pn.Style:= pnNone; //or pnNumber
pm.FirstLine := 0;
txtNote1.SetParaMetric(txtNote1.SelStart, txtNote1.SelLength,pm);
txtNote1.SetParaNumbering(txtNote1.SelStart, txtNote1.SelLength,pn);
end;
txtNote1.SetFocus();