[audiofeel]

помогите добавить к имени (mytext.txt) и пароль , пробовал дублировать ошибок нет но и результата тоже нет - одно имя.

Код:

 [.....Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program

[...Code]
var
EditPage: TWizardPage;
MyEdit, MyEdit1: TEdit;

procedure MyEditOnChange(Sender: TObject);
begin
  if MyEdit.Text = '' then
  WizardForm.NextButton.Enabled := False
  else
  WizardForm.NextButton.Enabled := True;
end;

procedure MyEdit1OnChange(Sender: TObject);
begin
  if MyEdit1.Text = '' then
  WizardForm.NextButton.Enabled := False
  else
  WizardForm.NextButton.Enabled := True;
end;

procedure CreateEditPage();
begin
  EditPage := CreateCustomPage(wpWelcome, 'Введите данные учетной записи ЦРУ', '');

  with TNewStaticText.Create(EditPage) do
  begin
    SetBounds(10,25,100,14);
    Caption := 'Введите свой ник:';
    Parent := EditPage.Surface;
  end;

  with TNewStaticText.Create(EditPage) do
  begin
    SetBounds(10,65,100,14);
    Caption := 'Введите пароль:';
    Parent := EditPage.Surface;
  end;

  MyEdit := TEdit.Create(EditPage);
  with MyEdit do
  begin
    SetBounds(10, 44, 350, 21);
    OnChange := @MyEditOnChange;
    Parent   := EditPage.Surface;
  end;

  MyEdit1 := TEdit.Create(EditPage);
  with MyEdit1 do
  begin
    SetBounds(10, 84, 350, 21);
    OnChange := @MyEdit1OnChange;
    Parent   := EditPage.Surface;
  end;
end;

procedure InitializeWizard();
begin
  CreateEditPage();
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of
    ssPostInstall: SaveStringToFile(ExpandConstant('{app}')+'\durdom.ini', MyEdit.Text, true);
  end; 
  case CurStep of
    ssPostInstall: SaveStringToFile(ExpandConstant('{app}')+'\durdom.ini', MyEdit1.Text, true);
  end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
  if (CurPageID = EditPage.ID) and (MyEdit.Text = '') and (MyEdit1.Text = '')then
  WizardForm.NextButton.Enabled := False;
end;