greatis很不错，出售源代码

http://www.greatis.com/delphicb/

特别是：

http://www.greatis.com/delphicb/imgedit/