[AXS]

А так не проще?..

появляется...

Код:

procedure TForm1.FormActivate(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to 255 do
    begin
      Form1.AlphaBlendValue:=i;
      Sleep(1);
      Application.ProcessMessages;
    end;
end;

...исчезает.

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i: Integer;
begin
  for i:=255 downto 0 do
    begin
      Form1.AlphaBlendValue:=i;
      Sleep(1);
      Application.ProcessMessages;
    end;
end;