رفع مشکل خطای دلفی 2010 در ویندوز 7 هنگام اجرا

uses  Windows, Registry;
procedure RemoveEmbarcaderoRadStudios2010AutoUpdate;
var  Reg: TRegistry; begin 
Reg := TRegistry.Create; 
try 
Reg.RootKey := HKEY_CURRENT_USER; 
if Reg.OpenKey(  '\Software\CodeGear\BDS\7.0\AutoRun\UpdateCheck', True  ) then 
Reg.WriteString('ProgramToRun', '') 
else 
ShowMessage('Registry entry not found'); 
Reg.CloseKey; 
finally 
Reg.Free; 
end;
end;