Проблема Inno Setup Faq. Шифрование инсталятора

[Егор1988-00]

Приветствую всех!
Столкнулся с такой проблемой, беру код для шифрования инсталлятора из справки, в коде ни чего не меняю как есть вот. А мне выдает ошибку при компиляции, потом увидел что была опечатка-пробел в команде Downto, исправил, все скомпелировалось. Но в итоге при запуске инсталятора , форма не принимает мой пароль для расшифровки.
Может я что не так делаю, подскажите пожалуйста. Всем спасибо!

[Setup]
AppName=Password
AppVerName=Encryption Password
CreateAppDir=false
Encryption=true
Password=202cb962ac59075b964b07152d234b70
///на странице пароля ввести: 123
#define EncryptPass
#define i Len(SetupSetting("Password"))
#for {i; i > 0; i--} EncryptPass = EncryptPass + Copy(SetupSetting("Password"), i, 1)
///(можно запутать еще и так: '0123456789' > '4321098765') #define EncryptPass Copy(EncryptPass, Len(EncryptPass)/2+1, Len(EncryptPass) -Len(EncryptPass)/2) + Copy(EncryptPass, 1, Len(EncryptPass)/2)

[Code]
var PasswordText: TPanel;

function DecryptPass(Password: String): String;
var n: Integer;
Begin
for n:= Length(Password) Dow nto 1 do Result:= Result + Copy(Password, n, 1)
end;

function CheckPassword(Password: String): Boolean;
Begin
Result:= (GetMD5OfString(Password) = DecryptPass('{#EncryptPass}'))
if not Result then exit;
  PasswordText.Caption:= WizardForm.PasswordEdit.Text
  WizardForm.PasswordEdit.Text:= DecryptPass('{#EncryptPass}')
  PasswordText.Show
end;

procedure PasswordEditOnKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
Begin
WizardForm.Nextbutton.Enabled:= CheckPassword(WizardForm.PasswordEdit .Text)
end;

procedure CurPageChanged(CurPageID: Integer);
Begin
if CurPageID = wpPassword then if PasswordText.Caption = '' then WizardForm. Nextbutton.Enabled:= CheckPassword(WizardForm.PasswordEdit.Text)
end;

procedure InitializeWizard;
Begin
WizardForm.PasswordEdit.OnKeyUp:= @PasswordEditOnKeyUp
PasswordText:=TPanel.Create(WizardForm)
PasswordText.SetBounds(WizardForm.PasswordEdit.Left, WizardForm.PasswordEdit.Top, WizardForm.PasswordEdit.Width, WizardForm.PasswordEdit.Height)
PasswordText.Font.Style:= [fsBold]
PasswordText.Alignment:=taLeftJustify
PasswordText.BevelOuter:= bvNone
PasswordText.BorderStyle:= bsSingle
PasswordText.Parent:= WizardForm.PasswordPage
    PasswordText.Hide
end;

 

[Andreo Fadio]

беру код для шифрования инсталлятора из справки, в коде ни чего не меняю как есть вот
...
форма не принимает мой пароль для расшифровки

Что значит мой пароль?
Если уж взяли готовое и используете как есть, то и используйте пароль который указан в примере же.

 

[Егор1988-00]

Что значит мой пароль?
Если уж взяли готовое и используете как есть, то и используйте пароль который указан в примере же.

имею ввиду тот пароль что в примере, я пробовал и тот длинный пароль и 123, кнопка некст не активна(

 

[Andreo Fadio]

Все работает, вы как-то не корректно значит встроили к себе.

 

[Егор1988-00]

Все работает, вы как-то не корректно значит встроили к себе.

точно, на новом инсталляторе работает, изначально делал на старом шаблоне, видимо с чем то код конфликтовал, возможно с настройками.
спасибо вам)