Caption von Menü, TNA und Checkboxen gleichzeitig ändern

[BMI]

Hallo,

ich möchte gerne in meinen Programmen beim Klick auf eines der ELemente Menü, Popupmenü, TNA (ebenfalls Popupmenü) und Checkbox die Captions/ bzw. v.a. die Checked-Eigenschaft ALLER GLEICHZEITIG ändern.

Wie löst man das am geschicktesten?

Bisher habe ich z.B: in den Click-Prozeduren jeweils folgendes drin

Delphi-Quellcode:

procedure TForm1.Mark_CheckBoxClick(Sender: TObject);
begin
  if Mark_CheckBox.Checked then
  begin
    StartMark1.checked := True;
  end
  else
  begin
    StartMark1.checked := false;
  end;
end;

und das hab ich beim andern auch drin - nur angepaßt.
Aber das scheint mir alles zu viel Code zu werden