procedure Tfrm_Main.SetRegistry; var Reg : TRegistry; begin Reg := TRegistry.Create; try try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey( 'SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\www.naver.com', True ); Reg.WriteInteger('*', 2); except // end; finally Reg.Free; end; end;