FMX TListBox Problem - Items verschwinden

[cipher]

Ich habe herausgefunden, dass wenn man die ListItems nacheinander einblendet und wieder ausblendet, dann läuft alles wieder. Im direkten Vergleich der fmx-Dateien vor und nach der Änderung sind lediglich Größen und Position Angaben anders.

Hab einen Timer auf die Form gepackt, der 1 Sekunde nach Anzeige der Form losgeht und folgendes macht:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: integer;
  b: boolean;
begin
  Timer1.Enabled:=false;
  for i := 0 to ListBox12.Items.Count-1 do begin
    b:=ListBox12.ListItems[i].Visible;
    ListBox12.ListItems[i].Visible:=true;
    ListBox12.ListItems[i].Visible:=b;
  end;
end;

Das löst das Problem auf. Ist aber nur ein Workaround.