word count in a memo box

[{MSX}]

now I need to write the contents of this memo into a txt file.

[pascal]
memo1.lines.savetofile('memo.txt');
[/pascal]

It's simple