重读Delphi面向对象编程思想1

序言
以前读刘艺的《Delphi面向对象编程思想》收获不小，后来这本书丢了，最近忙完手头的事情，下载了一本电子书，想重温一下。脑子记性不好，拿blog当笔记本吧。原书中的例子过于简单或者是为了面向对象而面向对象，我先在blog里结合开发实际写一些简单的例子。
几本术语
类：可以简单理解为带方法的record类型，尤其对对于初学面向对象编程的初学者，这样方便理解。
delphi类里的存储级别
private
public
published
protected
automated
对象是类的实例，也可以理解为指向类实例的指针。
关于is 和 as
is 用于类型判断 是否是某个类 as 是用于类型转换
如以下代码

procedure TForm1.Button1Click(Sender: TObject);
begin
  if sender is Tbutton then
  begin
    showmessage('istbutton')
  end
  else
  begin
    showmessage('not tbutton');
  end;
end;