[fofka]

Уже был вопрос про очистку формы при закрытии, код дали. Но есть проблема. Содержимое Едитов и Комбобоксов которые на форме очищаются. У меня форме есть еще PageControl1 с TabSheet1 и TabSheet2, на них едиты и комбобоксы не хотят очищатся.
Подскажите почему не очищаются.

procedure TForm4.N1Click(Sender: TObject);
 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;


 Form4.Close;
 Form1.Visible:=true;
    end;
end;