Delphi [Настройка] Firemonkey TEdit, чтобы избежать проблемы немедленного всплытия клавиатуры при нажатии

[Lomanu4]

В настоящее время Firemonkey имеет проблему с тем, что клавиатура всплывает сразу после нажатия в Edit.
Следующее является временным решением (наконец, надеюсь, что чиновник может решить эту проблему):

// Сначала устанавливаем Edit1.ReadOnly в False

procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
 // После освобождения установите ReadOnly в False, клавиатура выскочит
  TEdit(Sender).ReadOnly := False;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  // После удаления фокуса установите ReadOnly на Treue
  TEdit(Sender).ReadOnly := True;
end;