那为高手给我讲一下sender as *的用法和含义，谢了。(20分)

分不多，我是新人，高手讲一讲！！！

是对象的强制用法。比如：Sender as TEdit，就是把Sender强制当作TEdit组件的对象来使用。

请问一下，这样做有什么好处？

可以公開某些protected Method

当你需要多个控件使用一个事件时，或者用Sender传递事件时都需要用到

比如 TEdit(Sender)...

一个例子，挣点分

Sender 的應用：所有Edit共用一個過濾格式
　　　　 swayi21（原作）

1. 所有的Edit 都只允許輸入數字，即只可以輸入一次小數點
2. 不想對多達幾十個的Edit 都寫onKeyPress 事件

那你就寫一個，其它的全部在Object Inspector 中指向這一個：
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
IntCompIdx: Integer;
stText: string;
begin
if (Ord(Key) = 46) then
begin
IntCompIdx := (Sender as TEdit).ComponentIndex;
stText := TEdit(Components[IntCompIdx]).Text;
if Pos('.', stText) > 1 then
Key := #0;
end;
end;

如果不覺得難看的話也可以不用變量：
if (Ord(Key) = 46) and
(Pos('.', TEdit(Components[(Sender as TEdit).ComponentIndex]).Text) > 1)then
Key := #0;

多人接受答案了。