[Paskal]

Привет друзья! С прошедшими праздниками вас
Такой вопросик
Подключаюсь к Ворду и хочу (сохранить как) документ
пишет ошибку

Не достаточно актуальные параметры!

ошибка в строке

WordApplication1.ActiveDocument.SaveAs(Templ,Temp2 );

Вот процедура

Код:

procedure TForm11.Button4Click(Sender: TObject);
var
WordApp, doc :Variant;
adrSaveStr2: String;
Templ,Temp2:Olevariant;
begin
Templ:='C:\Test\';
Temp2:='.doc';
adrSaveStr2:='D:\Модуль Delphi\Bugalter\data\doc\workdoc\IIRozdel.docx';
if SaveDialog2.Execute then
WordApplication1.Connect;
WordApp:=CreateOleObject('Word.Application');
doc:=WordApp.Documents.open(adrSaveStr2);
WordApplication1.ActiveDocument.SaveAs(Templ,Temp2);
//закрываю
WordApplication1.ActiveDocument.Close;
WordApplication1.Quit;
end;
end.

Заранее большое спасибо