Membuat Animasi Form pada delphi 7

bagi kalian yang suka memperindah tampilan form pada delphi 7 anda gunakan kode skrip di bawah ini.....

code:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants,
  Classes, Graphics, Controls, Forms,Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject;
    var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

//================Batas Awal Kode Utama===================
Procedure Animasi(Pilih : Byte);
Var  i, j, BandingLebar, BandingTinggi,
    myWidth, myHeight: LongInt;
Const Pembagi : LongInt = 200;
begin
    myWidth := Form1.Width ;
    myHeight := Form1.Height;
    Form1.AlphaBlend := True;
    BandingLebar := myWidth Div Pembagi;
    BandingTinggi := myHeight Div Pembagi;
    For i := 1 To Pembagi Do
        Begin
        If Pilih = 1 Then
        Begin
            Form1.AlphaBlendValue := i + 55;
            Form1.Width := BandingLebar * i;
            Form1.Height := BandingTinggi * i;
        End
        Else
        Begin
            Form1.AlphaBlendValue := 255 -(i + 55);
            Form1.Width := BandingLebar * (pembagi - i);
            Form1.Height := BandingTinggi * (pembagi - i);
        End;
            Form1.Left := (Screen.Width - Form1.Width) div 2;
            Form1.Top:=(Screen.Height - Form1.Height) div 2;
            Form1.Show;
    End;
End;
//--------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
    Animasi (1);
end;
//---------------------------------------------
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
    Animasi (2);
end;
//===============Batas Akhir Kode Utama====================

end.