Menggunakan fungsi AnimateWindow

{
  Fungsi AnimateWindow Memungkinkan Anda untuk menghasilkan
  efek khusus Ketika menampilkan atau menyembunyikan jendela.

  Dengan fungsi AnimateWindow dapat memiliki efek yang sangat istimewa
  buat acara, membuat tak terlihat (hide) cetakan.
}Prosedur  TForm1.Button1Click (Sender: TObject); 

mulai
   Form2.BringToFront; 

  AnimateWindow (Form2.Handle, 3000, AW_BLEND); 

  Form2.Show; 

 {
  : Parameter 3 dapat menjadi salah satu atau lebih dari nilai-nilai Mengikuti
  menganggap 3. parameter kan berikut nilai-nilai:

  AW_BLEND: Menggunakan efek fade
  AW_SLIDE: Menggunakan slideshow animasi.
  AW_ACTIVATE: mengaktifkan jendela
  AW_HIDE: Menyembunyikan jendela.
  AW_CENTER: Membuat jendela tampak runtuh ke dalam
  AW_HOR_POSITIVE: jendela dari kiri ke kanan.
  AW_HOR_NEGATIVE: jendela dari kanan ke kiri
  AW_VER_POSITIVE: jendela dari atas ke bawah
  AW_VER_NEGATIVE: jendela dari bawah ke atas
 }end ; 

dari : http://www.swissdelphicenter.ch/en/showcode.php?id=838