Liczba porządkowa w DBGrid

Lazarus 2.2 + FPC 3.0.4 + ZEOS 7.2.4
Chciałbym mieć w standardowym DBGrid kolumnę wyświetlającą liczbę porządkową rekordu wyświetlającą prawidłowe wartości również po użyciu opcji FILTERED (TZReadOnlyQuery). Chodzi mi konkretnie o efekt identyczny z efektem zastosowanym w pakiecie x-Files / XDBGrid (www.x-files.pl ) gdzie można dodać kolumnę automatycznie numerującą rekordy.
Czy ma ktoś jakiś pomysł na realizację takiej funkcjonalności ?

1. Dodać sobie obsługę takiej kolumny do DBGrida. Sporo rzeźby...
2. Dodać pole kalkulowane do TZReadOnlyQuery i je poprawnie obliczać, np. w zdarzeniu OnCalcFields. DBGrid wyświetli wszystko co jest w DataSet.