Плавное появление окна Delphi 7

Для формы устанавливаем параметры:

AlphaBlend := True;
AlphaBlendValue := 0;

Заходим на вкладку System, выбираем Timer и кидаем его на форму. Свойство Interval устанавливаем по желанию (у меня 50). Дважды кликаем на иконку Timer и пишем следующую процедуру:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
	Form1.AlphaBlendValue:= Form1.AlphaBlendValue+5;
	if Form1.AlphaBlendValue=255 then timer1.Destroy;
end;