MonthCalendar-Wert in Edit-Feld

[Micha]

Ich habe von diesen Edit-Feldern und von den MonthCalendern jetzt 8 Stück in meiner Form.

Gibt es eine Möglichkeit, dass ich nicht für jeden Kalender diese prodecure schreiben muss?
Oder gibt's ne einfacher Möglichkeit?

Delphi-Quellcode:

// zeigt den MonthCalender für 1. Wert an
procedure Tdlg_users_bearbeiten.btn_beginn_1Click(Sender: TObject);
begin
calender_beginn_1.Visible := true;
end;

// bei Klick wird das Datum in das Edit-Feld geschrieben
procedure Tdlg_users_bearbeiten.calender_beginn_1Click(Sender: TObject);
begin
  edt_beginn1.Text := DateToStr(calender_beginn_1.Date);
end;

// bei Doppelklick wird der Kalender wieder "geschlossen2
procedure Tdlg_users_bearbeiten.calender_beginn_1DblClick(Sender: TObject);
begin
calender_beginn_1.Visible := false;
end;