[morebeauty]

Вот кусок кода

Код:

   Perform(WM_SETREDRAW,0,0);
   for i:=0 to High(ga) do
   begin
     if ga[i].value<>'0' then AddEl(ga[i].value);
   end;
   Perform(WM_SETREDRAW,1,0);
   Form1.Refresh;

Вначале отключается перерисовка формы.
В цикле создается некоторое количество компонентов TPanel (порой большое количество). Для более быстрой работы и решил отключать перерисовку.
Но в конце форма не перерисовывается (созданные компоненты не отображаются, ХОТЯ СОЗДАЮТСЯ). При клике по ним мышью, меняется их стиль, и они появляются.

Подскажите из-за чего может быть проблема?