Exemplo: Gerando e Salvando arquivo word

procedure TfDevedorIntimacao.btGravarClick(Sender: TObject);
begin
WordApp := CreateOleObject(''''Word.Application'''');
WordApp.Visible := false;
WordDoc := WordApp.Documents.Open(''''C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Minutas\Minuta Intimação.docx'''');

if fileExists(''''C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Intimações Geradas'''' + dbeProtocolo.Text +
'''' - Intimação - ''''+ dbListaDevedor.Text + ''''.docx'''') = false then
begin
WordDocCopy := WordDoc.SaveAs(''''C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Intimações Geradas''''
+ dbeProtocolo.Text + '''' - Intimação - ''''+ dbListaDevedor.Text + ''''.docx'''');

WordDocCopy := WordApp.Documents.Open(''''C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Intimações Geradas''''
+ dbeProtocolo.Text + '''' - Intimação - ''''+ dbListaDevedor.Text + ''''.docx'''');

WordDocCopy.Content.Find.Execute(''''«Protocolo»'''', true, true, false, false, false, true, 1, true, dbeProtocolo.Text, 2);
WordDocCopy.Content.Find.Execute(''''«Credor»'''', true, true, false, false, false, true, 1, true, dbListaCredor.Text, 2);
WordDocCopy.Content.Find.Execute(''''«Contrato»'''', true, true, false, false, false, true, 1, true, dbeContrato.Text, 2);
WordDocCopy.Content.Find.Execute(''''«Matricula»'''', true, true, false, false, false, true, 1, true, dbeMatricula.Text, 2);
WordDocCopy.Content.Find.Execute(''''«Descricao»'''', true, true, false, false, false, true, 1, true, dmemoDescricao.Text, 2);
WordDocCopy.Content.Find.Execute(''''«Devedor»'''', true, true, false, false, false, true, 1, true, dbListaDevedor.Text, 2);
WordDocCopy.Content.Find.Execute(''''«CNPJ»'''', true, true, false, false, false, true, 1, true, fDMDevedor.tbCredor.FieldByName(''''CNPJ'''').AsString, 2);
WordDocCopy.Content.Find.Execute(''''«CPF»'''', true, true, false, false, false, true, 1, true, fDMDevedor.tbDevedor.FieldByName(''''CPF'''').AsString, 2);
WordDocCopy.Content.Find.Execute(''''«Enderecos»'''', true, true, false, false, false, true, 1, true, fDMDevedor.tbDevedor.FieldByName(''''Enderecos'''').AsWideString, 2);

end
else
begin
ShowMessage(''''Já existe um arquivo de intimação para o Protocolo '''' + dbeProtocolo.Text);
end;

WordDoc.Close;
WordApp.Quit;
ShowMessage(''''O Arquivo encontra-se na pasta do sistema da Area de Trabalho!'''');
end;