procedure TForm1.FormCreate (Sender: TObject); begin AnimateWindow (Handle, 2000 {speed: 2 seconds}, AW_BLEND); {AW_HOR_POSITIVE = $ 00000001; AW_HOR_NEGATIVE = $ 00000002; AW_VER_POSITIVE = $ 00000004; AW_VER_NEGATIVE = $ 00000008; AW_CENTER = $ 00000010; AW_HIDE = $ 00010000 ; Aw_activate = $ 00020000; aw_slide = $ 00040000; aw_blend = $ 00080000;