[v1s2222]

На форме CheckBox1 и Edit1.

Код:

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