遍历所有控件

  for i := 0 to self.ComponentCount - 1 do
  begin
    if Components[i] is TRzEdit then
    begin
      TRzEdit(Components[i]).Clear;
      TRzEdit(Components[i]).Modified := false;
    end;
  end;