Inserir texto no Word

Caros Amigos, tenho o seguinte codigo e preciso completar, por favor de uma dica:

[color=blue:63f5c8f120]Doc.Content.Find.Execute(FindText := ´@025´, ReplaceWith := TBLancpagTurma.Value);
Doc.Content.Find.Execute(FindText := ´@026´, ReplaceWith := TBLancpagHorario.Value);
Doc.Content.Find.Execute(FindText := ´@028´, ReplaceWith := TBLancpagCurso.Value);
Doc.Content.Find.Execute(FindText := ´@054´, ReplaceWith := TrimRight(TBLancpagNome.Value));
Doc.Content.Find.Execute(FindText := ´@029´, ReplaceWith := TBLancpagTipopagto.Value);
Doc.Content.Find.Execute(FindText := ´@030´, ReplaceWith := Formatcurr(´#,0.00´,TBLancpagValorcurso.Value));
Doc.Content.Find.Execute(FindText := ´@031´, ReplaceWith := TBLancpagForPagto.Value);
Doc.Content.Find.Execute(FindText := ´@027´, ReplaceWith := Ednucont.Text);
if TBLancpagForPagto.Value = ´Cheque´ then
begin[/color:63f5c8f120]
[color=red:63f5c8f120]Aqui tenho que inserir o Texto ´Nº Cheque´ + o Campo do DB com o numero do cheque [/color:63f5c8f120]
[color=blue:63f5c8f120] end;[/color:63f5c8f120]

Aqui testo se começa a rotina a prazo e inseri completa em tempo de execursão a tabela ja criada no word ..


Agradeço qualquer ajuda

Claudio Pinho