procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ANimateWindow (Handle,200,AW_SLIDE+AW_HOR_POSITIVE+AW_HIDE); end; procedure TForm1.FormShow(Sender: TObject); begin ANimateWindow(Handle,200,AW_SLIDE+AW_HOR_NEGATIVE); SetActiveWindow(Handle); end;