>>330
mona := 'omaemona';

とかしたわけ？

Strcopyを使いましょう。