If / then / Else Problem mit mehreren Ak-/Funktionen?

[BenjaminH]

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;