Word automation + Windows server 2008 R2 = тормоза(очень сильные тормоза)

while true do
     begin
       Docum.ActiveWindow.Selection.Find.ClearFormatting;
       Docum.ActiveWindow.Selection.Find.Text := WideString(chr(27)+'EAN');
 
       if Docum.ActiveWindow.Selection.Find.Execute(EmptyParam,EmptyParam,EmptyParam,EmptyParam,
           EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                               EmptyParam,EmptyParam,EmptyParam,EmptyParam) = false then Break;
       Docum.ActiveWindow.Selection.End := Docum.ActiveWindow.Selection.End + 4;
       str := Docum.ActiveWindow.Selection.Text;
       len := StrToInt(Copy(str,5,2));
       size := StrToFloat(Copy(str,7,2));
       Docum.ActiveWindow.Selection.End := Docum.ActiveWindow.Selection.End + 1;
       Docum.ActiveWindow.Selection.Delete;
    
       Docum.ActiveWindow.Selection.End := Docum.ActiveWindow.Selection.End + len;
       Docum.ActiveWindow.Selection.CreateTextbox;
       Docum.ActiveWindow.Selection.ShapeRange.TextFrame.AutoSize := true;
       Docum.ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap := False;
 
       Docum.ActiveWindow.Selection.ShapeRange.TextFrame.MarginLeft := 0;
       Docum.ActiveWindow.Selection.ShapeRange.TextFrame.MarginRight := 0;
       Docum.ActiveWindow.Selection.ShapeRange.TextFrame.MarginTop := 0;
       Docum.ActiveWindow.Selection.ShapeRange.TextFrame.MarginBottom := 0;
       Docum.ActiveWindow.Selection.WholeStory;
       Docum.ActiveWindow.Selection.Font.Name := 'C39HrP24DhTt'; //'EanGnivc';
       Docum.ActiveWindow.Selection.Font.Size := size;
       Docum.ActiveWindow.Selection.ShapeRange.WrapFormat.AllowOverlap := True;
       Docum.ActiveWindow.Selection.ShapeRange.WrapFormat.Side := wdWrapBoth;
       Docum.ActiveWindow.Selection.ShapeRange.WrapFormat.DistanceTop := 0;
       Docum.ActiveWindow.Selection.ShapeRange.WrapFormat.DistanceBottom := 0;
       Docum.ActiveWindow.Selection.ShapeRange.WrapFormat.DistanceLeft := 0;
       Docum.ActiveWindow.Selection.ShapeRange.WrapFormat.DistanceRight := 0;
       Docum.ActiveWindow.Selection.ShapeRange.WrapFormat.Type := 3;
       Docum.ActiveWindow.Selection.ShapeRange.Line.Visible := False;
       Docum.ActiveWindow.Selection.HomeKey(Unit:=wdStory);
     end;