Membuat loading dengan borland delphi

Saya anggap anda sudah menginstal borland delphi pada PC/Laptop anda.
Berikut ini langkah-langkah untuk membuatnya:
1. Buka Delphi anda, kalau saya memakai borland delphi 7
2. Buat 2 buah form
    (1) form buat loading dengan nama "Form1"
    (2) form akhir "yang akan tampil setelah proses loading selesai" dengan nama "Form2"
3. Berikan komponen 'timer' pada "Form1", kemudian ubah value intervalnya pada menu properties menjadi "100"
    Jika ingin loadingnya lebih cepat, nominal value intervalnya diperkecil
4. Masih pada "Form1", tambahkan progress bar dengan nama "ProgressBar1"
5. Pada "Form2" tambahkan 'label', ganti namanya dengan 'Selamat Datang'
6. Klik dua kali pada timernya, kemudian masukkan kode berikut ini:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
if ProgressBar1.Position=100then
begin
Timer1.Enabled:=False;
Form1.Hide;
Form2.Show;
end;
end;

end. 

7. Nah, sekarang anda bisa menjalankannya dengan pilih tombol "run" atau tekan "F9"

Sekian, semoga bermanfaat ##
Selamat mencoba..