Duda con ComponentCout

[Paulao]

Yo tenia hecho esto, pero todo se queda congelado, travado y tengo dar un Kill en proceso.

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

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

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

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