procedure TForm1.Button2Click(Sender: TObject);
var
   Word, Sel, Doc, n, Continue:OleVariant;
   ApplyTo, DefaultListBehavior:OleVariant;
begin
  try
     Screen.Cursor := crHourGlass;
     try
       Word := CreateOleObject('Word.Application');
     except
       raise Exception.Create('Íå äîñòóïåí MicroSoft Word');
     end;
     Word.Documents.Add;
     Sel:=Word.Selection;
     Doc:=Word.ActiveDocument;

     Sel.TypeParagraph;
     n:= 1 ;
     Continue:= false;
     ApplyTo:= wdListApplyToWholeList;
     DefaultListBehavior:=wdWord10ListBehavior;

     Word.ListGalleries.Item(wdNumberGallery).ListTemplates.Item(n).ListLevels.Item( 1 ). NumberFormat := '%1.';
     Word.ListGalleries.Item(wdNumberGallery).ListTemplates.Item(n).ListLevels.Item( 1 ).TrailingCharacter := wdTrailingTab;
     Word.ListGalleries.Item(wdNumberGallery).ListTemplates.Item(n).ListLevels.Item( 1 ).NumberStyle := wdListNumberStyleArabic;
     Word.ListGalleries.Item(wdNumberGallery).ListTemplates.Item(n).ListLevels.Item( 1 ).NumberPosition :=  3  ;
     Word.ListGalleries.Item(wdNumberGallery).ListTemplates.Item(n).ListLevels.Item( 1 ).Alignment := wdListLevelAlignLeft;
     Word.ListGalleries.Item(wdNumberGallery).ListTemplates.Item(n).ListLevels.Item( 1 ).TextPosition :=  5 ;
     Word.ListGalleries.Item(wdNumberGallery).ListTemplates.Item(n).ListLevels.Item( 1 ).TabPosition :=  6 ;
     Word.ListGalleries.Item(wdNumberGallery).ListTemplates.Item(n).ListLevels.Item( 1 ).ResetOnHigher :=  0 ;
     Word.ListGalleries.Item(wdNumberGallery).ListTemplates.Item(n).ListLevels.Item( 1 ).StartAt :=  1 ;
     Word.ListGalleries.Item(wdNumberGallery).ListTemplates.Item(n).ListLevels.Item( 1 ).LinkedStyle := '';
     Word.ListGalleries.Item(wdNumberGallery).ListTemplates.Item(n).Name:='';
     Word.Selection.Range.ListFormat.ApplyListTemplate(
                Word.ListGalleries.Item(wdNumberGallery).ListTemplates.Item(n),
                Continue,  ApplyTo, DefaultListBehavior);
     Sel.TypeText('abc'); Sel.TypeParagraph;
     Sel.TypeText('def'); Sel.TypeParagraph;
     Sel.TypeText('ghi'); Sel.TypeParagraph;
     Sel.TypeText('jkl'); Sel.TypeParagraph;
     Sel.Range.ListFormat.RemoveNumbers(wdNumberParagraph);
  finally
     Word.Visible := True;
     Screen.Cursor := crDefault;
  end;
end;