皆さん、こんにちは?。

こてちゅさんやてとらぽっとさんの方法は、汎用的なテクニックに近いものだと思います。
で、ローカルな処理に特化した場合であれば、こんな方法でも良いのでは？

editmask  em_x[3] = { em_1, em_2, em_3 }
integer  cnt
for cnt = 1 to 3
em_x[cnt].Text = 文字列
next

おそまつさまでした。

P.S.
どうも最近、１日１回はレス書かないと気が済まなくなっている Takaでした。
いや、てとらぽっとさんにはかないませんが。(^^;