использует реестр;
var reg: tregistry;
начинать
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;
конец.