Работа с Word ( office2k)

Нужна помощь. Итак вот тут создаётся документ и в него вставляется текст из различных полей.. там выравнивание идёт по центру.. по краю..

OleVariant ItemIndex = 1 ;
WordApplication1->Connect() ;
WordApplication1->set_Visible(true) ;
WordApplication1->Documents->Add();
WordDocument1->ConnectTo(WordApplication1->Documents->Item(ItemIndex));

WordDocument1->Range()->Paragraphs->Item(1)->set_Alignment(WdParagraphAlignment::wdAlignParagraphCenter) ;
WordDocument1->Range()->Paragraphs->Item(1)->set_LineSpacing(8);
WordFont1->ConnectTo(WordDocument1->Sentences->get_Last()->get_Font());
WordFont1->set_Bold(true) ;
WordFont1->set_Size(12) ;

WordDocument1->Range()->InsertAfter(StringToOleStr(AnsiString("\n")));
WordDocument1->Range()->InsertAfter(StringToOleStr(Edit1->Text));
WordDocument1->Range()->InsertAfter(StringToOleStr(AnsiString("\n")));

WordDocument1->Range()->Paragraphs->Item(2)->set_Alignment(WdParagraphAlignment::wdAlignParagraphCenter) ;
WordDocument1->Range()->Paragraphs->Item(2)->set_LineSpacing(8);
WordDocument1->Range()->InsertAfter(StringToOleStr(Edit2->Text));
WordDocument1->Range()->InsertAfter(StringToOleStr(AnsiString("\n")));

WordDocument1->Range()->Paragraphs->Item(3)->set_Alignment(WdParagraphAlignment::wdAlignParagraphCenter) ;
WordDocument1->Range()->Paragraphs->Item(3)->set_LineSpacing(7);
WordDocument1->Range()->InsertAfter(StringToOleStr(Edit3->Text));
WordDocument1->Range()->InsertAfter(StringToOleStr(AnsiString("\n")));

и т.д. потом эти поля очищаются.. и надо в этот докумет добавить опять данныес этих полей.. нажимаю добавить.. и эти данные добавлются в этот же документ но вне зависимости от форматирования... тоесть всё по левому краю... хотя шрифт остаётся такой како нужен.. жирный крусив и тд.. Как сделать так, чтобы при добавлении было такое же форматирование как при первой вставке в ворд документ??? Я так понял.. вот что первый я сделал конкретно прям под каждый пораграф.. итем 1 итем 2 и т.д. а вот при втором добавлении.. там же другие параграфы идутт.. поэтому ничего не работает.. как это сделать?