Stringrid en Firemonkey

[Elias011267]

Buenas noches. Tengo problema cargar datos en un stringgrid. La primera carga del Tmemtable mediante un appendata ( la data viene de un servidor remoto mediante datasnap) se muestra bien, pero en las cargas sucesivas pierde algunas columnas a pesar que el Tmemtable tiene la información correcta. ¿Existe alguna propiedad en el stringgrid que permite mantener las columnas correctamente?. La rutina donde creo el mentable es el siguiente..

Código Delphi [-]
procedure Tfsala.LvcvItemClick(const Sender: TObject;
  const AItem: TListViewItem);
var
  lisdata: TFDJSONDataSets;
begin
  tmovilizador.Close;
  lisdata:= clientmodule1.ServerMethods1Client.getmovicv(tcv.FieldByName('cv_codigo').Text);
  tmovilizador.AppendData(TFDJSONDataSetsReader.GetListValue(lisdata,0));
  tmovilizador.Open;
 end;