[Konstantin-78]

кажется нашел проблему: у меня функция сохраняющий документ

Код:

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 это как-то обрабатывала, а ХР - отказывалась
Во всяком случае после этой замены, все пока открывается без проблем