Как сохранить документ по шаблону .dot

[Paskal1]

Здравствуйте! Ув. Программисты.
Я уж наверно утомил вас своими вопросами.
Такой вопрос
Открываю в св.программе шаблон dot(M.WordOffice) как сделать чтобы
все изменения записывались в новый документ с форматом .doc
а шаблон не изменялся.
мой кодинг записывает в тот же шаблон.

 procedure TForm2.BitBtn2Click(Sender: TObject);
var
WordApp, doc :Variant;
adrSaveStr: String;
kodEdrop: String;
RezultPlus: Integer;
i, sam : Integer;
TextStr, Rezul2: String;
sTempStr, sTempStr1 , sTempStr2, sTempStr3,
sTempStr4, sTempStr5, sTempStr6: AnsiString;
begin

if SaveDialog1.Execute then
   adrSaveStr:=SaveDialog1.FileName;
   WordApplication1.Connect;
   Form1.Panel1.Visible:=True;
   Form1.Gauge1.MaxValue:= 26;
   Form1.Gauge1.Progress:= Form1.Gauge1.Progress + 1;

   {
if FileExists('\data\doc\workdoc\IdentificationCode EDRPOY.doc') then
   adrSaveStr:='data\doc\workdoc\IdentificationCode EDRPOY.doc';
   WordApplication1.Connect;
   }
//try
   WordApp:=CreateOleObject('Word.Application');//
   doc:=WordApp.Documents.open(adrSaveStr);
sTempStr := Edit2.Text;
  while ( length( sTempStr ) < 75 ) do sTempStr := sTempStr + '_';
  Edit2.Text := sTempStr;
  //----------------------------------------------------------------
   sTempStr1 := Edit44.Text;
  while ( length( sTempStr1 ) < 55 ) do sTempStr1 := sTempStr1 + '_';
  Edit44.Text := sTempStr1;
  //----------------------------------------------------------------
   sTempStr2 := Edit45.Text;
  while ( length( sTempStr2 ) < 90 ) do sTempStr2 := sTempStr2 + '_';
  Edit45.Text := sTempStr2;
  //----------------------------------------------------------------
   sTempStr3 := Edit46.Text;
  while ( length( sTempStr3 ) < 90 ) do sTempStr3 := sTempStr3 + '_';
  Edit46.Text := sTempStr3;
  //----------------------------------------------------------------
   sTempStr4 := Edit47.Text;
  while ( length( sTempStr4 ) < 10 ) do sTempStr4 := sTempStr4 + '_';
  Edit47.Text := sTempStr4;
  //----------------------------------------------------------------
   sTempStr5 := Edit48.Text;
  while ( length( sTempStr5 ) < 90 ) do sTempStr5 := sTempStr5 + '_';
  Edit48.Text := sTempStr5;
  //----------------------------------------------------------------
   sTempStr6 := Edit49.Text;
  while ( length( sTempStr6 ) < 90 ) do sTempStr6 := sTempStr6 + '_';
  Edit49.Text := sTempStr6;
    Form1.Gauge1.Progress:= Form1.Gauge1.Progress + 10;
//-------------------------------------Ідентифікаційний код  ЄДРПОУ 1
WordApp.Selection.GoTo(-1,,,'q1');
WordApp.Selection.Font.bold:= False;
WordApp.Selection.TypeText(Edit24.Text);
   Form1.Gauge1.Progress:= Form1.Gauge1.Progress + 1;
//----------------------------------------  2 E/9
WordApp.Selection.GoTo(-1,,,'q2');
WordApp.Selection.Font.bold:= False;
WordApp.Selection.TypeText(Edit25.Text);
   Form1.Gauge1.Progress:= Form1.Gauge1.Progress + 1;
//----------------------------------------  3 E/10
WordApp.Selection.GoTo(-1,,,'q3');
WordApp.Selection.Font.bold:= False;
WordApp.Selection.TypeText(Edit26.Text);
   Form1.Gauge1.Progress:= Form1.Gauge1.Progress + 1;
//---------------------------------------- 4 E/11
WordApp.Selection.GoTo(-1,,,'q4');
WordApp.Selection.Font.bold:= False;
WordApp.Selection.TypeText(Edit27.Text);
   Form1.Gauge1.Progress:= Form1.Gauge1.Progress + 1;
//---------------------------------------- 5 E/12

Зар. Поклон и уважение.