timer +1

[slim jim]

hola, me gustaria hacer ke mi aplicacion apareciera poco a poco usando AlphaBlendValue (de la form) e intente haciendolo con un timer ke hiciera ke la variable se aumentara +1 pero el problema es ke soi nuevo con esto de las variables y no se que me esta fallando

Código Delphi [-]
unit Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ExtCtrls;
 
 type
   TForm1 = class(TForm)
   Timer1: TTimer;
   procedure FormCreate(Sender: TObject);
   procedure Timer1Timer(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
   blaz: integer = 1;
 
 implementation
 
 {$R *.dfm}
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   form1.AlphaBlend:=true;
   form1.AlphaBlendValue:= blaz;
 end;
 
 procedure TForm1.Timer1Timer(Sender: TObject);
 begin
   form1.AlphaBlendValue:= blaz +1;
 end;
 
 end.

aqui esta el codigo.. alguien me puede explicar por ke no me funciona?

grax