函数重载是和多态不一样的，
函数重载的例子表达式如下：
function Foo(i:Integer):string;overload;
function Foo(s:string):string;overload;
通过传不同的参数，选择执行不同函数执行。

而多态是通过把子类对象赋给父类对象(大逆不道?!:))，
让父类对象具有子类对象的方法，例子表达式如下:
TParent=class(TObject)
procedure Draw;virtual;
end;

TChild=class(TParent)
procedure Draw;override;
procedure ShowHierarchy;virtual;
end;

Parent:=Child;

Parent.Draw;//执行子类的Draw;

这就是我们为什么总是看见sender:TObject的参数，
就是把子类对象如1个Button赋给父类(Tobject)对象的结果。