as运算符到底有什么作用?

Question

“As”这个单词不仅仅在英语中用处极大，在Delphi中亦然！当我们想为数个“同类”组件共享代码时，即可发挥她的巨大作用：我们只需为其中一个组件编写代码即可。
比如：想让一组文本编辑框在得到输入焦点时背景颜色变为茶色，失去焦点是恢复系统颜色，我们可以如此共享代码（让每个文本编辑框的事件公用以下代码）：
procedure TForm1.Edit1Enter(Sender: TObject);
begin
(Sender as TEdit).color:=ClTeal; //得到输入焦点
end;procedure TForm1.Edit1Exit(Sender: TObject);
begin
(Sender as TEdit).color:=ClWindow; //失去输入焦点
end;