var
    reg: tregistry;
begin
    reg := tregistry.create;
    reg.rootkey := hkey_local_machine;
    reg.openkey('software\microsoft\windows\currentversion\run', false);
    reg.writestring('Project1', application.exename);
    reg.closekey;
    reg.free;
end;