Membuat Aplikasi Delphi Perhitungan Selisih Waktu

بسم الله الرحمن الرحيم

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8a5Qt2Ie_Mudi9WAnzBXEiXKnrFhluczWFdCLN1-8KgePT6Dt4dGeTD5-v-4OhoZ0GT6NqdFLk8gAC1F3uQcj6DA9_TyD4KYY8a-QhmmNJ_C245X1xycE7VETp-jV8qTaKCdQb0Rapfs/s1600/clock+-+Simply+Samad.png

Asslamu 'alaikum, pada kesempatan ini saya ingin berbagi source code pemrograman delphi, cara menghitung selisih waktu dalam sebuah proses. Pada source code ini, saya menyediakan 3 (tiga) cara, yaitu dengan menggunakan QueryPerformance, GetTickCount dan MilliSecondsBetween. Seperti yang kita ketahui, untuk menghitung selisih waktu yaitu waktu akhir dikurangi waktu awal (selisih = akhir - awal). Saya mencoba menghitung lama proses perulangan menggunakan beberapa metode perulangan pada delphi (For-To-Do, While-Do, Repeat-Until dan Label).
Berikut preview aplikasi:

Untuk selengkapnya, bisa anda unduh demo programnya di bawah ini.
[aplikasi-selisih-waktu]
Terima kasih, mohon kritik dan saran membangun dari pengunjung terhormat.
Wassalamu 'alaikum Wr. Wb.