System Delphi

Title: automatically open a TDateTimePicker?
{
There's no possibility to automatically
open a TDateTimePicker than to send a F4 to it.}
{
Es gibt't keine Möglichkeit, einen TDateTimePicker automatisch zu öffnen,
als F4 ihm zu senden
}
procedure TForm1.Button1Click(Sender: TObject);
begin
DateTimePicker1.Perform(WM_KEYDOWN, VK_F4, 0);
DateTimePicker1.Perform(WM_KEYUP, VK_F4, 0);
end;