请教高手们问题，谁帮忙解决了100分全给她（他）

Question

有两个程序都是用Indy写的，两个都用多线程，都是服务器程序，一开始那几天程序运行都是正常的，但过几天都出现CPU占25%的情况，一出现这个问题程序的就会停止在某个地方，例如一个是停在主线程的IdTCPServer1Execute，代码如下： 
  WriteDataLog(datetimetostr(now)+ '：开始上传文件',StrExePath);//写日志
  cs.Enter;//CS: TCriticalSection;定义
  WriteDataLog(datetimetostr(now)+ ':Cliet 上传文件本地保存名称1:'+ TheFileName,StrExePath);//写日志，*******查看日志时只能看到上一句日志，下面这句没了还有另外一个程序，线程Execute是这样的
procedure thDealData.Execute;
begin
    WriteDataLog('['+datetimetostr(now)+']线程启动',1);//写日志
    main;//一个procedure，，在此过程的最后我写的日志，说明此函数是正常的执行完的
    WriteDataLog('['+datetimetostr(now)+']线程停止',1);//写日志，同样只看到上面的那句看不到这句
end;
下面的这个程序是定时去开线程的，如果我设置的时间间隔越短程序出现此问题的次数越频繁，反之则相反
问题陈述完毕了，就高手指教

Answer 1

像死循环+死锁（如果你用的是双CPU超线程的话，25%说明其中一个cpu 100%了)看上去像WriteDataLog本身有问题，死循环或出错了，造成cs加锁了没解锁，然后其它线程陷入了永久等待。

Answer 2

writeDataLog函数如下：
Procedure WriteDataLog(Const LogStr : String;LogType:byte);
Var
  handle : Integer;
  logfile: integer;
  FilePath : String;
  tmp : String;
  PathError:string;
begin
  try
    tmp := LogStr;    if LogType=1 then
       PathError:=GetAppPath  +'\Log\Error'
    else
       PathError:=GetAppPath  +'\Log\dealFor';
       
    FilePath := PathError;
    FilePath := FilePath + '\' + FormatDatetime('YYYY-MM-DD',now) + '.Log';
    if not fileexists(FilePath) then
       Begin
       handle := filecreate(FilePath);
       fileclose(handle);
       End;    logfile := fileopen(FilePath, fmOpenWrite);
    fileseek(logfile, 0, 2);
    filewrite(logfile, #13#10, length(#13#10));
    filewrite(logfile,tmp[1],Length(Tmp));
    fileclose(logfile);  except
  end;
end;

Answer 3

如果是死循环或出错停在writeDataLog里，程序是不是会没响应？现在这两个程序都不会没有响应

Answer 4

估计是线程的同步问题
 CS.Enter //进入了关键段
  ....
 但没有看到关键段离开的语句
 是否忘了写 CS.LeaveWriteDataLog(datetimetostr(now)+ '：开始上传文件',StrExePath);//写日志
  cs.Enter;//CS: TCriticalSection;定义
  WriteDataLog(datetimetostr(now)+ ':Cliet 上传文件本地保存名称1:'+ TheFileName,StrExePath);//