Como enumerar filas de un DBGrid sin agregar otro campo

[lpmlpm]

Código Delphi [-]
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  1. Crea una columna nueva en tu DBGrid sin campo asociado
  2. Renombra el titulo como: 'No'
  3. pon el siguiente codigo en el evento OnDrawColumncell
  4. Ahora tienes una bonita columna de numero de registro =:-)
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DataSource1.DataSet.RecNo > 0 then
  begin
    if Column.Title.Caption = 'No' then
      DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));
  end;
end;