TTimeEdit/TDateEdit. Программно раскрыть. Можно ли проще?

[afors]

...

type
  TOpenTimeEdit = class(TTimeEdit);

...

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
 TOpenTimeEdit(TimeEdit1).OpenPicker;
end;

...

[ENERGY]

TimeEdit1.OpenPicker ?

[afors]

Работает, спасибо)