ret:=SysSetThreadName("TinySoft");
if ret=0 then
  return 1;
else
  return "设置线程名称失败！";

//创建函数指针
c := makeinstance(thisfunction(FuncPos),"cdecl",1);
//创建线程
handle := CreateThread(nil,10240000,c,nil,0,tid);
ret:=SysSetThreadName("TinySoft",tid);
if ret=0 then
  return 1;
else
  return "设置线程名称失败！";
//定义WindowsAPI的CreateThread函数声明。
function CreateThread(attr:pointer;size:pointer;addr:pointer;p:pointer;flag:Integer;var threadid:Integer):pointer;external "kernel32.dll" name "CreateThread";
//自定义函数，用于创建函数指针
function FuncPos(p:pointer):integer;
begin
  sleep(random(3000));
  return 1;
end;