ListView veri doldurma problemi

[kornakamil]

Soruların büyük kısmını açmışsamda
Hala Listview veri doldurmayla ilgili sorunlarım devam ediyor.
Aşağıda kodlarını verdiğim işlemde
Table kayıtsayısı 3680 Listview doldurduktan sonra
Saydırdığımda Listview satır sayısı 3680
Fakat 5 işlemden üçünde Listviewde tüm kayıtların tamamının
yüklenmediğini görüyorum. 1000-1500 kayıttan sonrasına
Listviewde göremiyorum .
Listview PullRefreshWait - PulltoRefresh ayarları True

   ListViewDATA.Items.Clear;

   TThread.CreateAnonymousThread(
   procedure()
     Var
       Litem : TListViewItem;
    begin
     TThread.Synchronize(nil,
       procedure()
       begin
          toast('BAŞLADI..');
       end);
     try
       // Yerel Veritabanı Bağlanmaya Çalış
           try
              DATAConnection.Connected := True;
            except
              toast('Yerel veritabanı bağlantısı sağlanamadı !!');
              exit
            end;

       // Özlük Tablosundaki verileri Yükle
          try
              DATAData.Open; //özlük tablosu
              DATAData.First;

              ListViewDATA.BeginUpdate;

              while not DATAData.Eof do
              begin
                 Litem :=ListViewDATA.Items.Add;
                 Litem.Data['Text1'] :=  DATAData.FieldByName('Ad').AsString+
                                         ' '+DATAData.FieldByName('Soyad').AsString;
                 if Length(DATAData.FieldByName('Gsm1').Value) >= 10 then
                    LItem.Data['Image4'] := 7;
                 DATAData.Next;
              end;

              ListViewDATA.EndUpdate;
              KayitSayisi.Text := DATAData.RecordCount.ToString;
              toast (ListViewDATA.Items.Count.ToString);
          except
            toast('Dosya SQL Hatası var  !!');
            exit
          end;


     finally
       TThread.Synchronize(nil,
         procedure()
         begin
            toast('BİTTİ..');
         end);
     end;
   end).Start;

Kodlar ana hatlarıyla bu şekilde ..
Umarım anlaşılır bir şekilde ifade edebilmişimdir.
Yardımlarınız için şimdiden teşekkürler. Tüm Delphican ailesine Saygılar.