[Страдалецъ]

нет этот коду убивает все компоненты с тагом равным 1 на форме.
Я вам уже дал рабочий код для едитов, если нужно еще и комбики, то так:

Код:

Var i: Integer;
begin
 for i := 0 to ControlCount - 1
 do begin
    if Controls[i].ClassType = TEdit
    then TEdit(Controls[i]).Clear;
    if Controls[i].ClassType = TComboBox
    then TComboBox(Controls[i]).Clear;
    end;
end;