FMX TStringGrid的Cell对齐方式

Delphi Berlin版本中，Column具有Model属性。

procedure TMainForm.CheckRecordGridDrawColumnCell(Sender: TObject; const Canvas: TCanvas;
  const Column: TColumn; const Bounds: TRectF; const Row: Integer; const Value: TValue;
  const State: TGridDrawStates);
begin
     Column.Model.TextSettings.HorzAlign := TTextAlign.Trailing;
end;