How to use “Sender” parameter with “As” operator for more then one class at a time?

Question

In Delphi, sometimes we need to do this...

function TForm1.EDIT_Click(Sender: TObject);
begin
  (Sender As TEdit).Text := \'\';
end;

...but som