🚀 go-pugleaf

I want to use eoASyncFetch in a ADOQuery to see the progress, the problem
that I have is that when the query ends the open ( the sql command is a
SELECT ), when I print the records in a listview, the first record isn't
printed, and the number of rows in the dataset, isn't the same that the rows
printed printed in listview. Here is the code :

void __fastcall TForm1::ADOQuery1FetchComplete(TCustomADODataSet *DataSet,
      const Error *Error, TEventStatus &EventStatus)
{
   ListView1->Items->BeginUpdate();
   ListView1->Items->Clear();
   DataSet->First();
   while (!DataSet->Eof )
   {
      TListItem *it = ListView1->Items->Add();
      it->Caption = DataSet->FieldByName("TEXT1")->Value;
      it->SubItems->Add(DataSet->FieldByName("TEXT2")->Value);
      DataSet->Next();
   }
   ListView1->Items->EndUpdate();
   Label1->Caption = "In Dataset " + AnsiString(DataSet->RecordCount) + ",
in List " + AnsiString(ListView1->Items->Count);
}

The caption in Label1 is :   'In Dataset 5000, in List 4999'

I think that the error is in the cachesize property ( 1 by default ), but I
can't put it to 0.
There is some way to solve it ?

--
Victor
ESPA Inform�tica.