Número da linha no DbGrid

ola Pessoal,

Criei um método o qual lista o numero/indice de cada linha, ate ia tudo bem...
o problema eh q quando navego ele se perde...ou seja...ele soh mostra os
valores/indice de cada linha q eh visivel....

TMyGrid = class(TDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Str : String;
begin
if (DataCol = 0) then
with TMyGrid(DBGrid1) do
begin
Str := Inttostr(TDataLink(DataLink).ActiveRecord);
Canvas.TextOut((Rect.Right - Canvas.TextWidth(Str)) - 30, Rect.Top, Str);
end;
end;

alguem sabe se como posso fazer para numerar todas minhas linhas no dbgrid?

vlw