请教如何给delphi程序添加TLS_CallBack函数

请问怎么给delphi程序添加TLS_CallBack函数
TLS_CallBack（线程局部存储回调函数）
不知道怎么给 自己的程序添加这样一个函数，希望大家能指点下。。。

[解决办法]
再说详细一点。