Problema con IndexFieldNames in firemonkey (FMX)

[balger]

A quien esté buscando la solución, la dejé en el siguiente link.

https://stackoverflow.com/questions/...22078#70522078

Felices fiestas.

[Casimiro Notevi]

Pues mejor copiarlo aqui

Código Delphi [-]
procedure TManFarmaQry.StringGrid1HeaderClick(Column: TColumn);
begin
  // Putting things practical    
  if mtblMedica.IndexFieldNames = LinkGridToDataSourceBindSourceDB1.Columns[Column.Index].MemberName then
    mtblMedica.IndexFieldNames := LinkGridToDataSourceBindSourceDB1.Columns[Column.Index].MemberName + ''
  else
    mtblMedica.IndexFieldNames := LinkGridToDataSourceBindSourceDB1.Columns[Column.Index].MemberName;

  // Here is the solution. Refresh datasource
  LinkGridToDataSourceBindSourceDB1.Active := False;
  LinkGridToDataSourceBindSourceDB1.Active := True;
end;