TDateTimePicker

[roamer57]

Hi, I am on a MacBook Pro M1 an have big problem with TDateTimePicker. I have followed this tutorial https://www.youtube.com/watch?v=aQQDxaHdf98

I have a DateTimePicker and a Edit box and a Memo box and a button. I typ some in the edit box and then choose a date with the DateTimePicker and push the button then the selected date and the text in the edit box should be added in the memo.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(DateToStr(DateTimePicker1.Date) + ' - '  +  Edit1.Text);
end;

The problem I have it that when select a date in the popup calendar from the DateTimePicker it only shows the current date + the text regardless what date I select with the picker. I need some help here.
Regards roamerP57

[Xatrix]

Events -> OnChange

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
   edit1.text := DateTimeToStr(DateTimePicker1.DateTime);
end;   

[Zoran]

I am not sure I understand what the problem is.
Would you please upload an application, as simple as possible, which demonstrates the problem.