能不能给个面向对象delphi编程的实例啊 网上那个是面向过程的(200分)

我用了delphi快3年了 可是属于个人爱好 基本都是想实现什么功能的时候就从网上找资料 或者是源码 或者是控件 反正很容易就做出一个个程序来了 很爽 但是 不满足这样啊
我想学学数据结构 算法 这些东西 后来想想还是先学编程技巧
既然是用delphi就想学学delphi的面向对象编程 可是网上的有的delphi面向对象实例编程 那个光盘和代码其实还是一般的delphi 堆积木 编程 都没有自己写过一个类
这里求一个真正的delphi面向对象编程的实例 （想不到这个东西这么难找）
最好是有自己写类的例子（当然要能实现某个功能） 自己写组件的例子 自己写类里面怎么用组件控件的例子 等基本的东西

《delphi面向对象编程思想》
作者： 刘艺
出版社：机械工业出版社
这本书，不知道你看了没有
如果没有，可以看看
呵呵

书都编写的不好 我还是喜欢 实例啊 有没有 这个很难找

接受答案了.