[ZVV]

plumbum, а в чём заключается ваш вопрос, если не секрет?
Вы этого хотите достичь?
(изьясняетесь уж больно непонятно...)

    purchTable  purchTable;
    ;
    while select count(recid) from purchTable
            group by OrderAccount
    {
        info(purchTable.OrderAccount);
        info(int2str(purchTable.RecId));
    }

SQL:

SELECT COUNT(A.RECID),A.ORDERACCOUNT FROM PURCHTABLE A WHERE (DATAAREAID=?) GROUP BY A.ORDERACCOUNT ORDER BY A.ORDERACCOUNT