🚀 go-pugleaf

I have a problem with the TADOQuery. In my project I need to read records
( about 40000 ) from some tables and show them in a list. For do it, I use a
virtual TListview (OwnerData = true) and the ADOQuery with a SQL statement
to read from database. The process for reading records from the database to
the query is fast, it gets about 3 sec., and I use the event OnData of the
listview to show the records directly form the query.
Here is the code :

void __fastcall TForm1::ListView1Data(TObject *Sender, TListItem *Item)
{
   ADOQuery->RecNo = Item->Index + 1;

   for ( int i = 0; i < ListView1->Columns->Count; i++ )
   {
      if ( i == 0 )
            Item->Caption = ADOQuery->FieldByName("CODIGO")->Value;
      else

Item->SubItems->Add(ADOQuery->FieldByName("NOMBREFISCAL")->Value);
   }
}

Before show the records directly from the query, I tried to copy the query
to my own list, and show the records from the list, but that process was
very very very slow. Then I decide to avoid the 'QueryToMemory' process.

The problem that I have now is when I scroll the listview. While at the top
of the listiew the scrolling is fast, when I go to
the bottom of it the scrolling is much slower.

I think that the problem should be here :
   ADOQuery->RecNo = Item->Index + 1;
because if I comment this line, the scroll process returns to the normal
performance, but ofcourse I can't comment this line.

How can I solve that problem ?
Is it any other faster way to do what I need ?

Thank you in advance.

Info : I'm using builder 6 and sqlserver 2000 in windows xp sp1.
--
Victor
ESPA Inform�tica.