线程出错，高手请进

Question

线程执行
function TFrmMain.MyThreadFunc(p:pointer):longint;stdcall;
var dc:hdc;s:String;
begin  dc:=getdc(FrmMain.handle);
  while not application.Terminated do
  begin
    with FrmMain do
    begin
      EnterCriticalsection(interlockedcrit);
      DisplayCurrent;
      LeaveCriticalSection(InterlockedCrit);
    end;  end;
 // ReleaseDC(FrmMain.Handle,DC);
end;线程建立
  InitializeCriticalSection(interlockedcrit);
  hthread:=CreateThread(nil,0,@TFrmMain.MyThreadfunc,nil,0,Threadid);
系统退出application.Terminat；时总是提示在异步运行时，操作不能被执行。

Answer 1

同意楼上的临界区用SyncObjs单元的TCriticalSection

Answer 2

线程需要释放，你用delphi中封装的beginThread试下

Answer 3

对啊，楼上说的正确，线程是要释放的，最简单的就是用delphi的tthread类，而且我看你有绘制之类的函数的话，就可能有同步的问题，用tthread类控制比较简单。