https://www.simentik.eu.org/2020/05/contoh-aplikasi-delphi-if-else.html