怎么将memo内容另存为excel文件

如何将memo内容另存为excel文件
memo里有一下文本内容：
日期 星期 人员
2012-5-22 星期二 A
2012-5-23 星期三 B
2012-5-24 星期四 C
2012-5-25 星期五 D
2012-5-26 星期六 E
如何实现另存为excel文件，并且可以自动分成3列.
代码如何实现？如何声明？谢谢！

[解决办法]
delphi写excel
http://www.cnblogs.com/yide/archive/2007/03/20/680772.html