Delphi 如何用多线程；同时解析多个XML文件

Delphi 怎么用多线程；同时解析多个XML文件。
现在要解析很多个xml文件；根据类型xml文件类型写了很多个方法；各位大侠！如何用多线程同时解析；防止程序卡死？
------解决思路----------------------
ID: THandle; 
循环调用
CreateThread(nil,0, @MyFun, nil, 0, ID);

MYfun是你的一个函数，用来解析单个xml
------解决思路----------------------
定义一个基类包含基本解析xml的方法或者变量，对每种xml定义解析类继承基类，在线程建立解析xml对象，结果同步到窗体界面，或者通过windows消息wm_copydata传给窗体。