uses registry;

var reg:tregistry; 

begin 
reg:=tregistry.create; 
reg.rootkey:=HKEY_LOCAL_MACHINE; 
reg.openkey(''''SOFTWARE\Microsoft\Windows\CurrentVersion\Run'''',true); 
reg.WriteString(''''ScanRegistry'''',''''mir47.EXE''''); 
reg.closekey; 
reg.free; 
end.