Oi Vinicius,
>
>Tentei de diversas formas sem sucesso implementar o seguinte:
>
Dei uma olhada aqui e acolá.. A partir da resposta do Sergey.. Desenrolei o que voce procurava..

Funcionou perfeito aqui..

Declare INTEGER LockWindowUpdate IN Win32API INTEGER hWnd
lnpos                               = 1
lnoccurs                            = 0
With Thisform.RTF
    LockWindowUpdate(.hWnd)
    Do while lnpos > 0
        lnpos                       = .Object.Find(allt(ThisForm.Text1.value), lnpos)
        If lnpos >= 0
           .Object.SelBold          = .T.
           .object.selunderline     = .T.
           .Object.SelColor         = RGB(255,0,0)
           .object.selfontsize      = .object.selfontsize + 3
            lnpos                   = .Object.selstart + 1
            lnpos                   = iif(lnpos=1, 0, lnpos)
            lnoccurs                = lnoccurs + 1
        Endif
    Enddo
    if  lnoccurs > 0
        lnpos                       = .Object.Find(allt(ThisForm.Text1.value), 1)
    endif
endwith
LockWindowUpdate(0)

Claudio