var
   Word: OLEVariant;
begin
 Word:=CreateOleObject('Word.Application');
 Word.Documents.Add;
  Word.Selection.Font.Name:='Times New Roman';
  Word.Selection.Font.Size:=12;
  Word.Selection.Font.Bold:=True;
  Word.Selection.ParagraphFormat.Alignment :=1;
  Word.Selection.TypeText('Вставляемый текст');
// меняем стиль
  Word.Selection.Font.Italic:=True;
  Word.Selection.TypeText('Вставляем текст');
  Word.ActiveDocument.SaveAs('c:\2.doc');