Yazılan mesaj gizleniyor

   Merhabalar. Şifre gizleme için bir prosedür kullanıyorum fakat şifre bölümü dışında isim ve yaş kısmında yazılanlar da gizleniyor fakat e posta edit kısmında yazılanlar gizlenmiyor. Rica etsem ilgilenebilir misiniz? 

var
  registerForm : TclForm;
  EmailImg, passwordImg, isimImg, soyisimImg, yasImg, meslekImg: TClProImage;
  MainPnl: TclProPanel;
  isimLbl, epostaLbl, parolaLbl, yasLbl : TClProLabel;
  HiddenPasswordBtn, NormalPasswordBtn, kayitOlBtn: TClProButton;
  EmailEdit, isimEdit, ParolaEdit, yasEdit: TclProEdit;

   void VirtualKeyboardShow;
 {
   MainPnl.Margins.Bottom = registerForm.clVKBoundsHeight;
 }

 void VirtualKeyboardHidden;
 {
   MainPnl.Margins.Bottom = 0;
 }

void HiddenPasswordBtnClick;
{
  if not Assigned(NormalPasswordBtn) 
  {
    NormalPasswordBtn = registerForm.AddNewProButton(ParolaEdit, 'NormalPasswordBtn', '');
    NormalPasswordBtn.Align = alRight;
    NormalPasswordBtn.Margins.Right = 10;
    NormalPasswordBtn.Margins.Top = 5;
    NormalPasswordBtn.Margins.Bottom = 5;
    NormalPasswordBtn.Width = 25;
    registerForm.SetImage(NormalPasswordBtn, 'https://i.imgur.com/3h7ewO1.png');
    registerForm.AddNewEvent(NormalPasswordBtn, tbeOnClick, 'NormalPasswordBtnClick');
  }
  else
  {
    NormalPasswordBtn.Visible = True;
  }

  ParolaEdit.Password = False;
  HiddenPasswordBtn.Visible = False;
}

void NormalPasswordBtnClick;
{
  try
    if not Assigned(HiddenPasswordBtn) 
    {
      HiddenPasswordBtn = registerForm.AddNewProButton(ParolaEdit, 'HiddenPasswordBtn', '');
      HiddenPasswordBtn.Align = alRight;
      HiddenPasswordBtn.Margins.Right = 10;
      HiddenPasswordBtn.Margins.Top = 5;
      HiddenPasswordBtn.Margins.Bottom = 5;
      HiddenPasswordBtn.Width = 25;
      registerForm.SetImage(HiddenPasswordBtn, 'https://i.imgur.com/dQ1keru.png');
      registerForm.AddNewEvent(HiddenPasswordBtn, tbeOnClick, 'HiddenPasswordBtnClick');
    }
    else
    {
      HiddenPasswordBtn.Visible = True;
    }

    ParolaEdit.Password = True;
    NormalPasswordBtn.Visible = False;
  except
    ShowMessage('Exception Class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);
  }
}

{

  registerForm = TclForm.Create(Self);

  MainPnl = registerForm.AddNewProPanel(registerForm, 'MainPnl');
  MainPnl.Align = alCenter;
  MainPnl.Height = 630;
  MainPnl.Width = 400;
  MainPnl.clProSettings.RoundHeight = 40;
  MainPnl.clProSettings.RoundWidth = 40;

  //MainPnl.clProSettings.IsFill = False;
  //MainPnl.clProSettings.BorderWidth = 3;
  MainPnl.clProSettings.IsTransparent = False;
  MainPnl.SetclProSettings(MainPnl.clProSettings);

  //İsim label ayarları

  isimLbl = registerForm.AddNewProLabel(MainPnl, 'isimLbl' , 'İsim');
  isimLbl.Align = alCenter;
  isimLbl.Margins.Top = 0;
  isimLbl.Margins.Left = 0;
  isimLbl.Margins.Right = 220;
  isimLbl.Margins.Bottom = 220;
  isimLbl.Height = 50;
  isimLbl.Width = 100;
  isimLbl.clProSettings.FontSize = 20;

  isimLbl.SetclProSettings(isimLbl.clProSettings);

  //Email Label ayarları

  epostaLbl = registerForm.AddNewProLabel(MainPnl, 'epostaLbl', 'E-Mail');
  epostaLbl.Align = alCenter;
  epostaLbl.Margins.Top = 0;
  epostaLbl.Margins.Left = 0;
  epostaLbl.Margins.Right = 220;
  epostaLbl.Margins.Bottom = 30;
  epostaLbl.Height = 50;
  epostaLbl.Width = 100;
  epostaLbl.clProSettings.FontSize = 20;

  epostaLbl.SetclProSettings(epostaLbl.clProSettings);

  //Parola Label ayarları

  parolaLbl = registerForm.AddNewProLabel(MainPnl, 'parolaLbl', 'Parola');
  parolaLbl.Align = alCenter;
  parolaLbl.Margins.Top = 280;
  parolaLbl.Margins.Left = 0;
  parolaLbl.Margins.Right = 220;
  parolaLbl.Height = 50;
  parolaLbl.Width = 100;
  parolaLbl.clProSettings.FontSize = 20;

  parolaLbl.SetclProSettings(parolaLbl.clProSettings);

  //Yaş label ayarları

  yasLbl = registerForm.AddNewProLabel(MainPnl, 'yasLbl' , 'Yaş');
  yasLbl.Align = alCenter;
  yasLbl.Margins.Top = 100;
  yasLbl.Margins.Left = 0;
  yasLbl.Margins.Right = 220;
  yasLbl.Height = 50;
  yasLbl.Width = 100;
  yasLbl.clProSettings.FontSize = 20;

  yasLbl.SetclProSettings(yasLbl.clProSettings);

  // Email edit setup
  EmailEdit = registerForm.AddNewProEdit(MainPnl, 'EmailEdit', 'E-posta');
  EmailEdit.Align = alCenter;
  EmailEdit.Height = 50;
  EmailEdit.Width = 350;
  EmailEdit.Margins.Top =120;
  EmailEdit.Margins.Left = 20;
  EmailEdit.Margins.Right = 20;
  EmailEdit.Margins.Bottom = 100;
  EmailEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B2F0E4');
  EmailEdit.clProSettings.IsTransparent = True;
  EmailEdit.clProSettings.IsFill = False;
  EmailEdit.clProSettings.IsRound = True;
  EmailEdit.clProSettings.RoundHeight = 30;
  EmailEdit.clProSettings.RoundWidth = 40;
  EmailEdit.TextSettings.Font.Size = 16;
  EmailEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#070807');
  //EmailEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807'); 
  //EmailEdit.clProSettings.BorderWidth = 2;
  EmailEdit.SetclProSettings(EmailEdit.clProSettings);

  EmailImg = registerForm.AddNewProImage(EmailEdit,'EmailImg');
  EmailImg.Align = alLeft;
  EmailImg.Margins.Left = 10;
  EmailImg.Margins.Top = 5;
  EmailImg.Margins.Bottom =5;
  EmailImg.Width = 25;
  registerForm.SetImage(EmailImg,'https://i.imgur.com/g9t6md5.png');

  // İsim edit setup
  isimEdit = registerForm.AddNewProEdit(MainPnl, 'isimEdit', 'İsim');
  isimEdit.Align = alCenter;
  isimEdit.Height = 50;
  isimEdit.Width = 350;
  isimEdit.Margins.Top =20;
  isimEdit.Margins.Left = 20;
  isimEdit.Margins.Right = 20;
  isimEdit.Margins.Bottom = 180;
  isimEdit.Password = True;
  isimEdit.TextSettings.Font.Size = 16;
  isimEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#151515');
  isimEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B2F0E4');
  isimEdit.clProSettings.IsTransparent = True;
  isimEdit.clProSettings.IsFill = False;
  isimEdit.clProSettings.IsRound = True;
  isimEdit.clProSettings.RoundHeight = 30;
  isimEdit.clProSettings.RoundWidth = 40;
  //isimEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
  //isimEdit.clProSettings.BorderWidth = 2;
  isimEdit.SetclProSettings(isimEdit.clProSettings);

  isimImg = registerForm.AddNewProImage(isimEdit,'isimImg');
  isimImg.Align = alLeft;
  isimImg.Margins.Left = 10;
  isimImg.Margins.Top = 5;
  isimImg.Margins.Bottom =5;
  isimImg.Width = 25;
  registerForm.SetImage(isimImg,'https://i.imgur.com/PqhWaa3.png');

  // Password edit setup
  ParolaEdit = registerForm.AddNewProEdit(MainPnl, 'ParolaEdit', 'Parola');
  ParolaEdit.Align = alCenter;
  ParolaEdit.Height = 50;
  ParolaEdit.Width = 350;
  ParolaEdit.Margins.Top =210;
  ParolaEdit.Margins.Left = 20;
  ParolaEdit.Margins.Right = 20;
  ParolaEdit.Margins.Bottom = 10;;
  ParolaEdit.Password = True;
  ParolaEdit.TextSettings.Font.Size = 16;
  ParolaEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#151515');
  ParolaEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B2F0E4'); 
  ParolaEdit.clProSettings.IsTransparent = True;
  ParolaEdit.clProSettings.IsFill = False; 
  ParolaEdit.clProSettings.IsRound = True;
  ParolaEdit.clProSettings.RoundHeight = 30;
  ParolaEdit.clProSettings.RoundWidth = 40;
  // ParolaEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
  //ParolaEdit.clProSettings.BorderWidth = 2;
  ParolaEdit.SetclProSettings(ParolaEdit.clProSettings);

  // Yas edit setup
  yasEdit = registerForm.AddNewProEdit(MainPnl, 'yasEdit', 'Yaş');
  yasEdit.Align = alCenter;
  yasEdit.Height = 50;
  yasEdit.Width = 350;
  yasEdit.Margins.Top =380;
  yasEdit.Margins.Left = 20;
  yasEdit.Margins.Right = 20;
  yasEdit.Margins.Bottom = 0;
  yasEdit.Password = True;
  yasEdit.TextSettings.Font.Size = 16;
  yasEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#151515');
  yasEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B2F0E4');
  yasEdit.clProSettings.IsTransparent = True;
  yasEdit.clProSettings.IsFill = False;
  yasEdit.clProSettings.IsRound = True;
  yasEdit.clProSettings.RoundHeight = 30;
  yasEdit.clProSettings.RoundWidth = 40;
  //yasEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
  //yasEdit.clProSettings.BorderWidth = 2;
  yasEdit.SetclProSettings(yasEdit.clProSettings);

  yasImg = registerForm.AddNewProImage(yasEdit,'yasImg');
  yasImg.Align = alLeft;
  yasImg.Margins.Left = 10;
  yasImg.Margins.Top = 5;
  yasImg.Margins.Bottom =5;
  yasImg.Width = 25;
  registerForm.SetImage(yasImg,'https://imgur.com/sfIaXkU.png');

  HiddenPasswordBtn = registerForm.AddNewProButton(ParolaEdit,'HiddenPasswordBtn', '');
  HiddenPasswordBtn.Align = alRight;
  HiddenPasswordBtn.Margins.Right = 10 ;
  HiddenPasswordBtn.Margins.Top =5 ;
  HiddenPasswordBtn.Margins.Bottom = 5 ;
  HiddenPasswordBtn.Width = 25;
  registerForm.SetImage(HiddenPasswordBtn,'https://i.imgur.com/dQ1keru.png');

  passwordImg = registerForm.AddNewProImage(ParolaEdit,'passwordImg');
  passwordImg.Align = alLeft;
  passwordImg.Margins.Left = 10;
  passwordImg.Margins.Top = 5;
  passwordImg.Margins.Bottom =5;
  passwordImg.Width = 25;
  registerForm.SetImage(passwordImg,'https://i.imgur.com/G2qFyZf.png');

  // Kayıt Ol buton ayarları
  kayitOlBtn = registerForm.AddNewProButton(MainPnl, 'kayitOlBtn', 'Kayıt Ol');
  kayitOlBtn.Align = alCenter;
  kayitOlBtn.Height = 50;
  kayitOlBtn.Width = MainPnl.Width*40/100;
  kayitOlBtn.Margins.Top =600;
  kayitOlBtn.Margins.Left = 20;
  kayitOlBtn.Margins.Right = 20;
  kayitOlBtn.Margins.Bottom = 10;
  kayitOlBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FF6B35');
  kayitOlBtn.clProSettings.RoundHeight = 30;
  kayitOlBtn.clProSettings.RoundWidth = 40;
  kayitOlBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#070807');
  kayitOlBtn.clProSettings.FontSize = 16;
  //kayitOlBtn.clProSettings.BorderWidth = 2;
  kayitOlBtn.SetclProSettings(kayitOlBtn.clProSettings);

  registerForm.SetFormBGImage('https://i.imgur.com/U5e5R9k.png');
  registerForm.AddNewEvent(HiddenPasswordBtn,tbeOnClick,'HiddenPasswordBtnClick');
  registerForm.AddNewEvent(kayitOlBtn, tbeOnClick, 'BtnOnLoginClick');

  registerForm.AddNewEvent(registerForm,tbeOnVirtualKeyboardShown,'VirtualKeyboardShow');
  registerForm.AddNewEvent(registerForm,tbeOnVirtualKeyboardHidden,'VirtualKeyboardHidden');

  registerForm.Run;

}