Animasi Kupu kupu terbang dengan Delphi

Dibawah ini adalah Listing Program untuk membuat animasi kupu kupu terbang....

{Properti AutoScroll dari Form1 diset ke False pada Object Inspector}.
{Properti Transparent dari Image1 diset ke True pada Object Inspector}.
Priuserate
i : Integer;

Procedure Tform1.Timer1Timer(Sender: Tobject);
Begin
i := i + 1;
If Image1.Left > (Form1.Width – Image1.Width) Then Image1.Left := 0;
Case i of
1 : begin
Image1.Left := Image1.Left + 10;
Image1.Picture.LoadFromFile(‘C:\GAMBAR\24.BMP’);   {Direktori disesuaikan di komputer           {masing-masing}
End;
2: begin
Image1.Left := Image1.Left + 10;
Image1.Picture.LoadFromFile(‘C:\GAMBAR\Butterfly.BMP’);
i := 0;
End;
End;
End;