[MiraLaklamon]

Сообщение от angvelem

Можно требуемым для очистки контролам присвоить одинаковый и уникальный Tag. Затем используя цикл с использованием ComponentCount очистить их, примерно так:

Код:

var
  I : Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if (Components[i] is TEdit) and ((Components[i] as TEdit).Tag = 12345) then
      (Components[i] as TEdit).Text := ''
    else if (Components[i] is TComboBox) and ((Components[i] as TComboBox).Tag = 12345) then
      (Components[i] as TComboBox).Clear;
end;

Но это будет всё-же "перечисляя" (более того, перечисляя не только те компоненты которые нужно очистить, а все которые лежат на форме), а по условию задачи нужно "одновременно не перечисляя"...