Tengo ahora poco tiempo para probarlo pero te sugiero revises este enlace con un código de Peter Below. Peter Below es un participante en los foros de Borland muy respetado y aunque, como te digo, no he podido probar su código, me parece que su función PutRTFSelection es lo que necesitas.