[Gupta]

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;