Ole automation having slow performance

When I automate ms Word 97 from delphi 3, i get a very poor performance.
Even when I use the TLB library and early binding.

Performance is 10 times slower then from within a VBA (using the same code)

Is there anything I can do about this??

Here is a piece of sample code. It takes 11 seconds to execute on e pentium
133 with 48 mb internal memory.

unit wrdtst;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,Word_TLB,ComObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ooWord: TWordAppl;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var a,b: OleVariant;
    i: integer;
    doc: document;
    sel: selection;
begin

  ooWord:=coApplication.Create;
  ooWord.Visible:=True;

  ooWord.screenupdating:= False;

  a := ''; b := false;
  ooWord.Documents.Add (a,b);

  doc:=ooWord.ActiveDocument;
  sel:=ooWord.Selection;

  for i:=1 to 10 do begin

    a:=wdLine; b:=wdExtend;
    sel.TypeText ('dit is een test');
    sel.HomeKey(a,b);

    a:=sel.Range; b:='test1';
    doc.Bookmarks.Add (b,a);

    a:=wdLine; b:=wdExtend;
    sel.EndKey (a,b);
    sel.TypeParagraph;

  end;

  ooWord.screenupdating:= True;

end;

end.