и снова InDesing + Delphi

Application1.Connect;
Application1.DocumentPreferences.pageWidth:=InttoStr(FW)+' mm'; //Ширина страницы
Application1.DocumentPreferences.pageHeight:=inttostr(FH)+' mm'; //Высота страницы.
Application1.MarginPreferences.top:=inttostr(trunc((FH-H)/2))+' mm'; //Задаем поля сверху (top), снизу (bottom), ну справа-слева - понятно. Ага?
Application1.MarginPreferences.bottom:=inttostr(trunc((FH-H)/2))+' mm';
Application1.MarginPreferences.left:=inttostr(trunc((FW-W)/2))+' mm';
Application1.MarginPreferences.right:=inttostr(trunc((FW-W)/2))+' mm';

Application1.Documents.Add(true, 'default'); //Создаем документ 
doc1:=Application1.ActiveDocument;
doc1.close(2036691744, 'c:\MyDocumentName.indd'); //Закрываем с сохранением

Application1.Disconnect;

CreateOleObject('Indesign.Application.CS2');//и так далее

var myDoc, MyPage, MyTextFrame:OleVariant;
text: string;  i,n,p:integer;
begin  Application1.Connect;
myDoc:=Application1.activeDocument;  MyPage:=myDoc.Pages.Item(1);  table1.First;
while not table1.Eof do
begin
p:=1;
while p<>MyPage.TextFrames.count+1 do
begin  MyTextFrame:=MyPage.TextFrames.Item(p);
i:=1;
while i<>MyTextFrame.Paragraphs.count+1 do
begin  text:=MyTextFrame.Paragraphs[i].contents;  n:=Pos(table1.fieldbyname('tag').AsString, text);
if n<>0 then  begin
delete(text, 1,3);
MyTextFrame.Paragraphs[i].contents:=text;
MyTextFrame.paragraphs[i].appliedCharacterStyle:=myDoc.characterStyles.item(table1.fieldbyname('Style').AsString); end;
inc(i);
end;
inc(p);
end;
table1.Next;
end;
Application1.Disconnect;
end;
end.