hkey _local _machine rttodey tregimfile

root dey hkey _users

tregisry tkey inifile void _fastcall tfim hoinform//todo :addyour sorce code here

tregistry my regisry new tregistry

my regisrry _>root ce

dey hkey _local _machine

//

if lmy registry _>open dey ("soft ware file://micrwstft

application_>my registre my reginster

return

my reginstry _<write string

my registrn _>closedey

deletemy registry