[调整] Firemonkey TEdit 避免按下立即弹出键盘的问题

目前 Firemonkey 有一个问题，就是在 Edit 按下会立即弹出键盘，在红鱼儿的博客也提交了 QC：

http://blog.sina.com.cn/s/blog_44fa172f0102vy2q.html

被此问题所累的朋友，去投个票吧！

下面想出暂时解决的方法（最终还是希望官方能修正这个问题）：

// 先将 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;