Delphy Openoffice/libreoffice (writer)

Bom dia!
Estou com o seguinte problema;
Eu preciso gerar abrir um arquivo no writer, utilizando o Delphi, ou seja o writer do Openoffice ou do libreoffice, Eu consigo fazer parcialmente o que quero, vejam o codigo;

procedure TFormPessoasCons.ProcTrabalhista;
var
OpenDesktop, Writer: Variant;
Connect, OpenOffice : Variant;
ReplaceDescriptor: Variant;
fileProp3, fileProp4, oReplace, myTemplate: Variant;

begin
if VarIsEmpty(OpenOffice) then
OpenOffice := CreateOleObject('com.sun.star.ServiceManager');
Connect := not (VarIsEmpty(OpenOffice) or VarIsNull(OpenOffice));
//Inicia o Writer
OpenDesktop := OpenOffice.CreateInstance('com.sun.star.frame.Desktop');

OpenOfficeReplace('file:///C:\\SFL\\SIS\\Procuracoes\\Proc_Trabalhista.doc', '<nome>', PessoasNome.Value);

O problema e essa linha acima eu consigo gerar e abrir o arquivo no Writer, o problema e não consigo trocar mais do que um registro pelo comando OpenOfficeReplac;

Ora eu preciso abrir o arquivo trocar varios '<nome>'
Exemplo
OpenOfficeReplace('file:///C:\\SFL\\SIS\\Procuracoes\\Proc_Trabalhista.doc', '<nome>', '<nome2>','<nome>', PessoasNome.Value, PessoasNome.Value, PessoasNome.Value);

So que não fiunciona, so funciona se for um unica troca ou seja, OpenOfficeReplace('file:///C:\\SFL\\SIS\\Procuracoes\\Proc_Trabalhista.doc', '<nome>', PessoasNome.Value);

Alguem poderia me ajudar?