关闭delphi ide皮肤

[HKEY_CURRENT_USER\Software\Embarcadero\BDS\21.0\Theme]
"Enabled"=dword:00000001
L := ThreadList.LockList;
try
//操作List
finally
ThreadList.UnLockList;
end;