[c3Tpeucep]

Здравствуйте, у меня возникла проблема при создании выезжающей части формы. Я хочу чтобы по нажатии на кнопку форма расширялась и открывались ранее невидимые элементы.Я использую alphaskins и при изменении размеров формы через цикл форма очень притормаживает.
Может есть какой-нибудь способ плавно расширить форму без лагов.
пробовал останавливать перерисовку формы. Расширяется она нормально а вот когда заезжает на экране за границами окна остается часть формы.

Код:

procedure TForm2.Image2Click(Sender: TObject);
begin
if image2.Tag<1 then begin
image2.Tag:=1;
Perform(WM_SETREDRAW, 0, 0);
while form2.height<351 do
form2.height:=form2.height+5;
Perform(WM_SETREDRAW, 1, 0);
Refresh;
end
else begin
image2.Tag:=0;
Perform(WM_SETREDRAW, 0, 0);
while form2.height>231 do
form2.height:=form2.height-5;
Perform(WM_SETREDRAW, 1, 0);
Refresh;
end;
end;