MonthCalendar-Wert in Edit-Feld

[Tester]

Code:

// 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; 

// zeigt den MonthCalender für 2. 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_beginn2.Text := DateToStr(calender_beginn_1.Date); 
end;

.
.
.