Número de 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.... 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