procedure TForm1.FormActivate(Sender: TObject);
begin
  for i:=0 to 255 do begin
     alphablendvalue := i;
     update;
     sleep(10);
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  alphablendvalue := 0;
end;