[M.A.D.M.A.N.]

Код:

memo.readonly := length(memo.text) >= 1024;