关于类和代码优化

因为指向之类的变量，可以强制转换为父类的变量，因此类似于下面的代码都可以简化：
if Sender is TMemo then
(Sender as TMemo).Text:='Test'
else if Sender is TDBEdit then
(Sender as TDBMemo).Text:='Test';
可以变成如下的代码，以便提高效率：
if Sender is TCustomMemo then
TCustomMemo(Sender).Text:='Test';
因为is和as是效率很低的东东！尽量少用！！