function writereg(mainkey : Longint; Key : String; keyname : String; KeyValue: String):boolean; var reg:Tregistry;
begin reg:=Tregistry.Create ; try reg.RootKey :=mainkey; if reg.OpenKey(key,true) then begin reg.WriteString(keyname,keyvalue); result:=true; end else begin result:=false; end; finally reg.CloseKey ; reg.Free ; end; end;