Alterando dados de um arquivo .RTF (Sem Office instalado)

Ola pessoal, tenho um arquivo base contrato.RTF aonde faço algumas substituições de informações, usando a conforme abaixo:

O problema é o seguinte que em algumas maquinas da uma mensagem de erro: ´sequencia de classe invalida´, acredito que é porque essa maquina não tem o office da microsoft instalado, tem alguma forma de não precisar do office na maquina?

WinWord := CreateOleObject(´Word.Application´);
WinWord.Visible := False;
Docs := WinWord.Documents;
Doc := Docs.Open(cArqDestino);
Doc.Content.Find.Execute(FindText := ´<Emissao>´ , ReplaceWith := UpperCase(Tabela.Data...);
Doc.Content.Find.Execute(FindText := ´<VendedorNome>´, ReplaceWith := Tabela.Nomevendedor... );
Doc.Content.Find.Execute(FindText := ´<VendedorRg>´, ReplaceWith := Tabela.rgvendedor);
Doc.SaveAs(cArqDestinoF);
Doc.Close;