[Кодер]

Уважаемые, вопросик такой, на форме чекбокс и эдит.
Текст в поле ввода запоролен звездочкой (#42). На чекбоксе стоит галочка "Скрывать пароль".
Почему не работает следующий код?:

Код:

if cbShowPass.Checked=true then
  begin
  cbShowPass.Checked:=false;
  epass.PasswordChar:=#0;
  end
else
  begin
  cbShowPass.Checked:=true;
  epass.PasswordChar:=#42;
  end

[v1s2222]

На форме CheckBox1 и Edit1.

Код:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if(CheckBox1.Checked) then
    Edit1.PasswordChar := #42
  else
    Edit1.PasswordChar := #0;
end;