Занести данные в документ Word

if(Edit1->Text.Length() != 0 && Edit2->Text.Length() != 0)
    {
        // путь и имя файла для сохранения
        AnsiString file = "C:\\log.txt";
        AnsiString temp = Edit1->Text + "|" + Edit2->Text; // записываемая строка
        TStringList *list1 = new TStringList;  // 1й TStringLis
        list1->Add(temp); // добавляем строку Edit1->Text + "|" + Edit2->Text
        if (FileExists(file) == false) // проверяем наличие файла
        {
            list1->SaveToFile(file); // файл не найден, значит сохраняем как есть
        }
        else
        {   // если файл уже существует
            TStringList *list2 = new TStringList; // 2й TStringLis для существующего файла
            list2->LoadFromFile(file); // загружаем существующий файл
            list2->Add("***************************************"); // вроде как разделить добавляем
            list2->Text = list2->Text + list1->Text; // к загруженному файлу добавляем новые записи
            list2->SaveToFile(file); // сохраняем
            delete list2; // чистим за собой
        }
        delete list1; // чистим за собой
    }
    else
    {
        // пустые едиты
    }