кажется нашел проблему: у меня функция сохраняющий документ
Код:
function SaveDocAs(ANamePath, ANameFile: string; AOpenDoc: integer):boolean; export;
//save created doc
{
LOpenDoc
0 - not open created doc
1 - open created doc
}
var
LPath: string;
begin
SaveDocAs := true;
try
begin
Words_Templs.ActiveDocument.SaveAs(ANamePath+VERIFICATION_NAME_FILE(ANameFile));
CloseDoc;
Close_Document(0);
Words_Templs := Unassigned;
CoUninitialize;
if AOpenDoc = 1 then
OPEN_MAKE_DOC(ANamePath, VERIFICATION_NAME_FILE(ANameFile), '', 0, LPath);
end;
except
SaveDocAs := false;
end;
end;
строки разрушаюшие объект
Код:
Words_Templs := Unassigned;
CoUninitialize;
были после "
if AOpenDoc = 1 then", которые его открывают. т.е. пытался открыть не разрушенный объект
только 10 это как-то обрабатывала, а ХР - отказывалась
Во всяком случае после этой замены, все пока открывается без проблем