To
DimmaN Он самый...
To
Necromant Хм, забавно... Попробую.
To
All
Пока пользую такой вот интересный предложенный вариант с API:
procedure TSplashWindow.FormClose(Sender: TObject; var Action: TCloseAction);
var i:integer;
begin
ShowWindow(self.Handle,sw_show);
for i := 0 to 255 do
begin
Application.ProcessMessages;
self.AlphaBlendValue:=i;
end;
end;