-----------------------------------------------------------------------
            "Delphi X-Files" <www.DelphiXFiles.narod.ru>"
                     "Эффектное появление окна"
-----------------------------------------------------------------------


procedure TForm1.FormShow(Sender: TObject);  
var  
  RectSmall,RectNormal:TRect;  
begin  
  RectSmall:=Rect(0,0,0,0); 
  RectNormal:=Form1.BoundsRect;    DrawAnimatedRects(GetDesktopWindow,IDANI_CAPTION,RectSmall,
                    RectNormal); 
end; 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
var  
  RectSmall,RectNormal:TRect;  
begin  
  RectSmall:=Rect(0,0,0,0);  
  RectNormal:=Form1.BoundsRect;   DrawAnimatedRects(GetDesktopWindow,IDANI_CAPTION,RectNormal,
                    RectSmall);  
end;