Поиск

Всем хай. Пол дня бьюсь, уже с ума начинаю сходить, и как назло не с кем посоветоваться сегодня. Выручайте) Суть: Есть TListBox. В него динамически из кода создаются TListBoxItem. Каждому итему в поле TagObject присваивается некий объект, хранящий дополнительные данные. По клику на итем, вытаскивается этот объект и в зависимости от данных, выполняются разные действия. Проблема: Под Windows ее собсно нет) Под Android при клике на TListBoxItem оказывается что TagObject = nil. Голова уже дымится, у меня закончились мысли, что это может быть... Код, на всякий: while not query.Eof do begin item := TListBoxItem.Create(lbTeilLeistungsArten); lbTeilLeistungsArten.AddObject(item); item.StyleLookup := 'listboxitemTL'; item.Height := 60; item.Text := query.FieldByName('Bezeichnung').AsString; item.OnClick := OnTeilleistungenClick; item.Tag := query.FieldByName('ID').AsInteger; item.DisableDisappear := true; item.ApplyStyleLookup(); lStObj := TStoreObject.CreateTL(query.FieldByName('ID').AsInteger); lStObj.TeilLeistung.Name := query.FieldByName('Bezeichnung').AsString; item.TagObject := lStObj; query.Next(); end; Всем заранее спасибо!