Для плавного сворачивания окна (как в мессенгере 1.3 тулз>минимизе) вставьте такой код для сворачивания:
Code
for i:=t1 div 5 downto t2 div 5 do
begin
Height:=i*5;
end;
И такой для разворачивания:
Code
for i:=t2 div 5 to t1 div 5 do
begin
Height:=i*5;
end;
А также в начале модуля вставьте следующий код:
Code
const
t1 = {высота развёрнутого окна};
t2 = {высота развёрнутого окна};
//желательно, чтобы t1 и t2 делились на 5