Table with many rows - many pages

Hi

I have table with 1000 rows
TabId:= CreateTable(1000, 5);
SetTableRowHeight(TabId, 1, 1000, 0);
...

I need draw table on many pages so I do something like this:

aPageCount := 0;
 repeat
   DrawTableRows(TabId, 0.2, PageHeight - 0.2, PageHeight - 0.4, aPageCount + 1, FPDFApp.GetTableLastDrawnRow(TabId));
   aRowPage := GetTableLastDrawnRow(TabId); //aRowPage = 50
   Inc(aPageCount,aRowPage);
   if aPageCount < 1000 then
     SelectPage(NewPage);
   until aPageCount >= 1000;

But it isn't working, I have many pages but table is only on first page with first 50 rows.
How I can draw table on next page?

I want print 1000 rows on X pages. On one page I can print about 50 rows (sometimes 40 or 60, GetTableLastDrawnRow result).

I create new page and select it here:

if aPageCount < 1000 then
     SelectPage(NewPage);

aPageCount  - it's total row count from first page to current:

page - aPageCount
1 - 50 rows (from 1 to 50)
2 - 100 (from 51 to 100)
3 - 150 (from 101 to 150)
...
when aPageCount >=1000 I finish.
After that I have 20 pages but only first have table, other are clear.

I think when I do
DrawTableRows(TabId, 0.2, PageHeight - 0.2, PageHeight - 0.4, aPageCount + 1, GetTableLastDrawnRow(TabId));

table is draw on currently selected page. Is this true?

>QP.NewPage;
>QP.SelectPage(aPageCount);
>

I don't do aPageCount := QP.NewPage
aPageCount - isn't a new page id, it should be aPrintedRecordCount, it's total row count from first page to current

SelectPage it's ok

I know what it's wrong: GetTableLastDrawnRow returns last printed row, not rowcount from last page.

It should be:
DrawTableRows(aTableId, 0.2, PageHeight - 0.2, PageHeight - 0.4, aPrintedRecordCount + 1, 0);
aPrintedRecordCount := GetTableLastDrawnRow(aTableId); //not Inc(aPrintedRecordCount ,GetTableLastDrawnRow(aTableId));
...

Thank you very much for help.