Comando não reconhecido no delphi 2010 e xe4

Ola pessoal.
Criei um texto no word tipo eu, @vendedor, portador da cedula de identidade nº @identidade e assim por diante.
No delphi 2010 / XE4 tentei fazer assim:
coloquei em uses comobj
Criei umas edits com os dados tipo edtvendedor, edtidentidade no forme e no clique do button coloquei os comandos abaixo:

procedure TFrmPrincipal.BtnGerarClick(Sender: TObject);

var

WinWord, Docs, Doc: Variant;

begin

WinWord := CreateOleObject('Word.Application');

// Tornar o word visivel

WinWord.Visible := True;

// Abrir arquivo para edição

Doc:= WinWord.Documents.Open(ExtractFilePath(Application.ExeName)+declaração.doc'

// Substituir itens do arquivo por texto escolhido

Doc.Content.Find.Execute(FindText := '@vendedor' , ReplaceWith := Edtvendedor.text
Doc.Content.Find.Execute(FindText := '@identidade' , ReplaceWith := Edtidentidade.text

Mas o delphi 2010 e o delphi xe4 que tenho instalado no meu pc, nao reconhece os comandos
Doc.Content.Find.Execute(FindText := '@identidade' , ReplaceWith := Edtidentidade
Da erro.
No delphi 7 esse comando funciona normal.
Alguém poderia me ajudar??
Atenciosamente; Clécio