TFmxObjectData = record
  CurrentGrid: TTMSFMXGrid;
  Cell: TFMXObject;
  PrevClassType: TFmxObjectClass;
end;