کدی برای نوشتن وثبت نام برنامه در رجیستری

var Registro : TRegistry;

begin
    Registro:=TRegistry.Create;
    try
        Registro.RootKey:=HKEY_LOCAL_MACHINE;
        Registro.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',False);
        if not Registro.ValueExists('NomeMiaApplicazione') then
            Registro.WriteString('NomeMiaApplicazione',(Application.ExeName));
    finally
        Registro.Free;
    end;
end;