[Casimiro Noteví]

¿Y no te vale algo simple como esto?:

Código Delphi [-]
reFinal.text := reFinal.Text + reUno.Text + reDos.Text + reTres.Text;