destructor TAccForm.Destroy;
var
  MyControl: TFmxObject;
begin
  FEditTimer.Free;
  FEditMouseUp.Free;

  // Make sure freed form has no longer reference to control
  MyControl:= FocusedCtrl;
  while Assigned(MyControl) do
    begin
      if (MyControl is TForm) and ((MyControl as TForm) = Self) then
        begin
          FocusedCtrl:= nil;
          Break;
        end;
      MyControl:= MyControl.Parent;
    end;
  inherited;
end;