Vereinfachung gesucht

[himitsu]

Können beide CheckBoxen gleichzeitig markiert sein?

wenn nicht:

Delphi-Quellcode:

if RadioButton1.Checked then
begin
  if not CheckBox1.Checked then SQL.Add('def');
  if not CheckBox2.Checked then SQL.Add('abc');
end;

PS:

Delphi-Quellcode:

procedure DoThis(Group: TRadioButton; Check1, Check2: TCheckBox; SQL: TIrgendwas; Add1, Add2: String);
begin
  if Group.Checked then
  begin
    if Check1.Checked then
      SQL.Add(Add1)
    else
    if Check2.Checked then
      SQL.Add(Add2)
    else
    begin
      SQL.Add(Add1);
      SQL.Add(Add2);
    end;
  end; 
end;