Número de registro actual (DBGrid)

[[FGarcia]]

Hola a todos!

Estuve revisando las 500 respuestas que me regreso la consulta (numero registros; registro actual) pero no encontré algo que me sacara de mi ignorancia por lo tanto expongo mi duda:

Actualmente cuando hago cambio en un PageControl a otra pestaña (Tab) visualizo una rejilla de datos la cual ya contiene datos, ejecuto el siguiente código para saber el numero de registros actuales y el registro actualmente seleccionado (siempre es el uno):

Código Delphi [-]
procedure TfrmPrincipal.PageControl1Change(Sender: TObject);
begin
  if PageControl1.ActivePageIndex = 1 then
    begin
      Label1.Caption := IntToStr(CnxDatos.ADOTable1.RecNo );
      Label2.Caption := IntToStr(CnxDatos.ADOTable1.RecordCount);
    end;
end;

Hasta aquí todo bien. Mi duda es como se el numero de registro en el que actualmente me encuentro:

Código Delphi [-]
Label1.Caption := IntToStr(CnxDatos.ADOTable1.RecNo );

1. Al hacer click en la parte donde aparece el |> de la fila en ese momento seleccionado
2. Si subo o bajo en la rejilla con las teclas Flecha arriba / abajo
3. Si me voy moviendo con la rueda del ratón.

Se agradece su atención.