!**************************************
! Name: Menggulung Form
! Description : menambahkan tinggi form dari nol
! sampai pada batas tinggi tertentu
! copyright : Maggot #10
! www.master.ac.id
!**************************************
procedure TForm1.FormCreate(Sender: TObject);
begin
    Form1.Height := 0;
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Form1.Height := Form1.Height + 10;
    IF Form1.Height >= 700 THEN
        Timer1.Enabled := False;
end;