Disolver a un Form al cerrarlo

[Deiv]

Acabo de leer los post,
He estado intentando con AlphaBlend, en cambio con AnimateWindow lo probaré llegando a casa.

Se me presentó la siguiente duda:

Código Delphi [-]
var
i:integer=255;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i:integer;
begin
   Form1.AlphaBlend:=true;
   timer1.enabled:=true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    i:=i-1;
    Form1.AlphaBlendValue:=i;
    if i = 80 then
        timer1.Enabled:=false
end;
end.

En este código no pasa nada, pero si el mismo le implemento a un Button al evento OnClick, si trabaja, ¿donde está la diferencia?, pareciera que no hace caso el Timer al evento OnClose. ¿Donde estoy fallando?
Saludos