请帮我看看，我写的那里有问题

Question

procedure Tlyrbb2.RzToolbarButton1Click(Sender: TObject);
var
   i:integer;
begin
    for I := 0 to lyrbb2.Panel2.ControlCount - 1 do
  begin
    if (lyrbb2.Panel2.Controls[I] is TRzNumericEdit) then
    begin
       (lyrbb2.Panel2.Controls[I] as TRzNumericEdit).Text := '0.0';
       (lyrbb2.Panel2.Controls[I] as TRzNumericEdit).Enabled:=true;
    end;
    if (lyrbb2.Panel2.Controls[I] is TRzEdit) then
    begin
       (lyrbb2.Panel2.Controls[I] as TRzEdit).Text := '';
       (lyrbb2.Panel2.Controls[I] as TRzEdit).Enabled:=true;
    end;
  end;
end;

Answer 1

是直接跳过去了
比如if (lyrbb2.Panel2.Controls[I] is TRzNumericEdit) then这里就直接跳过去了
而且最后运行的效果是所有的都为空了

Answer 2

呵呵~~我没用过这两个控件，是不是TRzNumericEdit就是继承的TRzEdit？
也就是说TRzEdit是TRzNumericEdit的父类。