Alıntı Yapasansor2 (442KB) is a Delphi project. In this zip file you will find 2 projects. 150 lines of code in 5 hours. The first one is for a four floor buildings elevator simulator made in Delphi2005. The other is a better one using thread objects and more flexible.
http://www.tuzlaatl.k12.tr/yunus/download/asansor2.zip