function delthekeyVaule(mainkey : Longint;Key : String; Name : String):boolean; var reg:Tregistry; begin Result:=false; reg:=Tregistry.Create ; try reg.RootKey :=mainkey; if reg.OpenKey(key,false) then begin Result:=reg.DeleteValue (name); end; finally reg.Free ; end; end;