Delphi线程小程序,线程的创建,有临界区的使用