System Delphi

Title: How to automatically open a TDateTimePicker
procedure TForm1.Button1Click(Sender: TObject);
begin
DateTimePicker1.Perform(WM_KEYDOWN, VK_F4, 0);
DateTimePicker1.Perform(WM_KEYUP, VK_F4, 0);
end;