关闭delphi ide皮肤

[HKEY_CURRENT_USERSoftwareEmbarcaderoBDS21.0Theme]
"Enabled"=dword:00000001
L := ThreadList.LockList;
try
//操作List
finally
ThreadList.UnLockList;
end;