Delphi и Word

[Siluet]

Здравствуйте..
при выполнении выходит ошибка "недопустимая строка с указанием класса"

unit Unit1;

interface

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

type
  tForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  doc,w:Variant;

implementation

uses StrUtils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);


begin
  W:=CreateOleObject('Word.Application1');
  W.Visible:=true;     
  doc:=w.documents.add('H:list.doc'); 
  w.selection.Move(5,8);
  w.selection.move(1,8);  
  w.selection.typeText(edit1.Text);
end;end.

объясните пожалуйста, что я не так сделал?

[Siluet]

нашел ошибку

 W:=CreateOleObject('Word.Application1');

тут я случайно единицу поставил )))