FileForums - it's possible to create button to show password of installer?

Code:
var

  PasswordShowHideBtn: TNewButton;  // shows or hide the text



procedure PasswordShowHideBtnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer); forward;

procedure PasswordShowHideBtnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer); forward;



procedure RedesignWizardForm;

begin

  with WizardForm.DirEdit do

  begin

    PasswordChar := '*';      // By Default Text is Hidden

  end;



  { PasswordShowHideBtn }

  PasswordShowHideBtn := TNewButton.Create(WizardForm);

  with PasswordShowHideBtn do

  begin

    Parent := WizardForm.SelectDirPage;

    Left := ScaleX(296);

    Top := ScaleY(152);

    Width := ScaleX(121);

    Height := ScaleY(33);

    Caption := 'show';

    OnMouseDown := @PasswordShowHideBtnMouseDown;

    OnMouseUp := @PasswordShowHideBtnMouseUp;

  end;



  PasswordShowHideBtn.TabOrder := 5;



end;



procedure PasswordShowHideBtnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);

begin

    with WizardForm.DirEdit do

  begin

    PasswordChar := '*';      // Makes Text Hidden

  end;

end;



procedure PasswordShowHideBtnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);

begin

  with WizardForm.DirEdit do

  begin

    PasswordChar := #0;    // Shows Real Text

  end;

end;





procedure InitializeWizard();

begin

  RedesignWizardForm;

end;