soll eine Fallunterscheidung mehrere Befehle auslösen, müssen diese mit begin und end zusammengefasst werden.
Bei dir sähe das so aus:
Delphi-Quellcode:
procedure TForm2.CheckBox2Click(Sender: TObject);
begin
If Checkbox2.Checked then
begin
Form1.Edit3.PasswordChar := '*';
Form1.Edit5.PasswordChar := '*';
end
else
begin
Form1.Edit3.PasswordChar := #0;
Form1.Edit5.PasswordChar := #0;
end;
end;