Loading Dengan Delphi

Siang Agan agan kali ini saya akan memosting bagai mana cara membuat loading dengan delphi. Pertama anda harus menyiapkan 2 form dan komponen sebagai berikut (1 timer[ubah interval timer menjadi 100])(1 XPManifest1)dan (1 ProgressBar1) dan semua komponen tersebut di letakkan pada form1
setelah itu klik dua kali pada timer lalu masukan rumus sebagai berikut :


ProgressBar1.Position := ProgressBar1.Position + 1;
if ProgressBar1.Position = 100 then
begin
timer1.enabled:=false;
form2.open;
end;

setelah itu coba jalankan apakan berhasil dan semoga hasilnya memuaskan. Selamat mencoba