title: How to use "Sender" parameter with "As" operator for more then one class at a time?
body: <p>In Delphi, sometimes we need to do this...</p>
  
  <pre><code>function TForm1.EDIT_Click(Sender: TObject);
  begin
    (Sender As TEdit).Text := '';
  end;
  </code></pre>
  
  <p>...but sometimes we need to repeat the function with other object class like...</p>
  
  <pre><code>function TForm1.COMBOBOX_Click(Sender: TObject);
  begin
    (Sender As TComboBox).Text := '';
  end;
  </code></pre>
  
  <p>...because the operator <code>As</code> does not accept flexibility. It must know the class in order to allow the <code>.Text</code> that come after the <code>()</code>.</p>
  
  <p>Sometimes the code gets full of similar <code>functions</code> and <code>procedures</code> because we need to do the same thing with similar visual controls that we can't specify.</p>
  
  <p><em>This is only an case of use example. Generally I use these codes on more complex codes to achieve a standard objective on many controls and other kind of objects.</em></p>
  
  <p><strong>Is there an alternative or trick to make these tasks more flexible?</strong></p>