简单的传递内存，，忘大神们赐教~

delphi中永远不要使用createthread来创建线程，使用 beginthread 来创建。
如果使用c++，也不要使用api createthread 来创建显示，应使用_beginthreadex。