Вставить текст из файла с InnoSetup

Question

Я вставлю строку из текстового файла в (PeakLicensePage.Values ​​[0] на стартовой странице установки.

Я не знаю, как это будет работать. Я могу сделать это вVBA, но в Innosetup я нуб: - (

Код здесь создает Serial.txt в моей папке приложения, но мне нужно это в обратном порядке.

.txt-В файле только одна строка, не более.

Спасибо за помощь,

токсично

var
  PeakLicensePage : TInputQueryWizardPage;

procedure InitializeWizard;
begin
  PeakLicensePage := CreateInputQueryPage(wpWelcome,
    'Anwendungsschlüsselabfrage',
    'ACCDBT-Anwendungsschlüsselabfrage',
    'Bitte geben Sie Ihren persönlichen Schlüssel (MIT Bindestrichen) ein und klicken Sie Weiter.');
  PeakLicensePage.Add('Persönlicher Anwendungsschlüssel:', false);
end;

function NextButtonClick(CurrentPageId: integer): boolean;
begin
  if CurrentPageId = PeakLicensePage.ID then
  begin
    Result :=
      (PeakLicensePage.Values[0] = 'test') or   
      (PeakLicensePage.Values[0] = 'test123');


    if not Result then
    begin
      MsgBox('Der Schlüssel ist nicht korrekt. Bitte versuchen Sie es erneut.', mbConfirmation, MB_OK);
      PeakLicensePage.Values[0] := '';
    end;
  end
  else
    Result := true;
end;

 function CheckSerial(Serial: String): Boolean;
begin
  Result := True;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    SaveStringToFile(ExpandConstant('{app}\Serial.txt'),
      ExpandConstant(PeakLicensePage.Values[0]), False);
  end;
end;