请教sender as的用法~
下面的代码是我写的一个单机一个checkbox控件的代码~
作用是想实现每次单机后，改变checkbox的checked属性，可是这段代码一执行，就会出现无限循环~没搞懂为什么~

procedure TForm1.CB1Click(Sender: TObject);
begin

if (sender as TCheckBox).Checked then
begin
Edit5.Enabled:=false;
(sender as TCheckBox).Checked:=false;
end
else begin
(sender as TCheckBox).Checked:=true;
Edit5.Enabled:=true;
end;

end;