Duda con ComponentCout

[rgstuamigo]

Pues si...tienes toda la razón amigo ecfisa.
En ese caso pues el código final bien Optimizado quedaría así:

Código Delphi [-]
procedure LimpaEdit(Form: TForm);
var
  i: Integer;
begin
  for i := 0 to Form.ControlCount - 1 do
  begin
    if(Form.Controls[i] is TcxTextEdit) then
      TcxTextEdit(Form.Controls[i]).Clear;

    if(Form.Controls[i] is TcxLookupComboBox) then
      TcxLookupComboBox(Form.Controls[i]).Clear;

    if(Form.Controls[i] is TcxCalcEdit) then
      TcxCalcEdit(Form.Controls[i]).Text := '0';

    if(Form.Controls[i] is TcxDateEdit) then
      TcxDateEdit(Form.Controls[i]).Clear;
  end;
end;

Saludos...