Fórum Criar arquivo no Word via Delphi, e poder mudar a fonte #267660

Estou digitando o comando abaixo para enviar o conteudo de uma Query para o Word.


Procedure TFmRElatorio.ExportarWord;
Var
MSWord: Variant;
Begin
MSWord:= CreateOleObject (´Word.Basic´);
MSWord.AppShow;//mostra o word
MSWord.FileNew;//inicia um novo documento
MSWord.FontSize(12);//muda o tamanho da fonte
Dm.QrRelatorio.first;
While not Dm.QrRelatorio.eof do
Begin
MSWord.insert(´Empresa: ´); //preto
MSWord.insert(Dm.QrRelatorioEMPRESA.value+#13);// azul
MSWord.insert(´Endereço: ´); //preto
MSWord.insert(Dm.QrRelatorioEndereco.value+13); //azul

Dm.QRRelatorio.next;
End;



End;
[b:917aabdec5]Duvida:[/b:917aabdec5] Gostaria de que o campo empresa fosse da cor Preta e o campo Dm.QrRelatorioEmpresa.value fosse azul.. Ou seja, como faço para escolhar a cor da fonte..