Limpar Vários Campos ao Mesmo Tempo

for i := 0 to ComponentCount -1 do
  if Components[i] is TEdit then
    TEdit(Components[i]).Clear;

for i := 0 to ComponentCount -1 do
  if Components[i] is TComboBox then
    TComboBox(Components[i]).ItemIndex := -1;