[Savant]

Можно поступить примерно так:

Код:

var
  FirstShow: Boolean = True;

implementation

.....

procedure TForm1.FormShow(Sender: TObject);
var
  i: Byte;
begin
  if not FirstShow then Exit;
  FirstShow:=False;
  ShowWindow(Form1.Handle,SW_SHOW);
  for i:=0 to 255 do begin
    Application.ProcessMessages;
    Form1.AlphaBlendValue:=i;
    Sleep(5); // Задержку можно уменьшить или убрать совсем
  end;
end;