Inno Setup Lizenz abfragen

[Osse]

Vielen Dank, für eure Hilfe.

Jetzt funktioniert es wenigstens, aber ich verstehs nicht ganz.

Der Code ist zwar programmiertechnisch kein Leckerbissen aber wäre toll wenn ihr mal rübergucken könntet.
Zunächst wird die Seite erstellt und zwar anstelle der Passwortseite, wenn ich das richtig verstehe.

Wenn ich aber bei meiner Funktion NEXTButton wpPasswort anstelle der 100 einsetze funktioniert es nicht ??

HAbs durchs debuggen rausgfunden, dass ich die Seiten ID 100 abfragen muss, hab keine Ahnung wieso ich 100 als Rückgabewert bekomme?? Müsste noch eigntlich auch mit wpPasswort funktionieren, denn ich ersetze doch die Seite, oder??

Delphi-Quellcode:

var
   Page: TInputQueryWizardPage;

procedure InitializeWizard;
BEGIN
   Page:=CreateInputQueryPage(wpPassword,'Lizenzabfrage', 'PEAK Lizenz abfrage', 'Bitte geben Sie die Lizenz des PEAK-Treibers ein und drücken Sie Weiter');
   Page.Add('Lizenzcode ', False);
END;


FUNCTION NextButtonClick(CurPageID:Integer):Boolean;
BEGIN
  IF not (CurPageID=100) THEN
    BEGIN
      Result := True;
    END
  ELSE
    BEGIN
      IF (Page.Values[0] = '1') OR (Page.Values[0] = '2') OR (Page.Values[0] = '3')
      OR (Page.Values[0] = '4') OR (Page.Values[0] = '5') OR (Page.Values[0] = '6')THEN
        BEGIN
          Result:=TRUE;
        END
      ELSE
        BEGIN
          Result:=FALSE;
          if MsgBox('Die Lizenz ist nicht korrekt. Bitte versuchen Sie es erneut!', mbConfirmation, MB_OK) = IDOK then
            BEGIN
              Page.Values[0] := ' ';
            END;
        END;
    END;
END;