Paginación datagrid

[Mariolarr]

Muchas gracias por tu atención, aqui te muestro el contenido del codigo con las modificaciones que me has dicho:
Procedimiento PageIndexChange

Código Delphi [-]
  CambiarPaginaAux;

  DataGrid1.CurrentPageIndex :=e.NewPageIndex;
  DataGrid1.DataBind;

  CatalogoReader.Close;
  Trans.Commit;
  Trans.Free;

Procedimiento CambiarPaginaAux, donde las variables Trans y CatalogoReader son globales.

Código Delphi [-]
var
  Cadena: BdpCommand;
  sSQL: string;
begin
  Trans := MyConeccion.BeginTransaction();

  sSQL := 'select Art_Codi, Art_Desc, Art_EPV_Coste from Articulos where Art_PVP1 = ''' + '0' + '''';
  Cadena := BdpCommand.Create(sSQL, MyConeccion, Trans);
  CatalogoReader := Cadena.ExecuteReader;

  DataGrid1.VirtualItemCount := 15000;
  DataGrid1.DataSource:=CatalogoReader;

Haciendo esto, me señala el número de la página pulsada como si estuviera situado en él, pero el contenido es el de la página 1.

Gracias

[[__hector]]

- Pon el databind como parte del metodo CambiarPaginaAux
- cambia el orden de ejecucion, colocando la llamada al metodo justo despues de cambiar el indice de la pagina
- verifica que los registros entre paginas deben ser diferentes en la tabla

  DataGrid1.CurrentPageIndex :=e.NewPageIndex;
  CambiarPaginaAux;

  // estas lineas no deberian ser parte de este metodo
  CatalogoReader.Close;
  Trans.Commit;
  Trans.Free;
 // fin comentario

[Mariolarr]

Hola de nuevo, he hecho las modificaciones que me has dicho pero me sigue ocurriendo lo mismo, mira:

Código Delphi [-]
procedure TWebForm2.CambiarPaginaAux;
var
  Cadena: BdpCommand;
  sSQL: string;
begin
  Trans := MyConeccion.BeginTransaction();

  sSQL := 'select Art_Codi, Art_Desc, Art_PVP1 from Articulos_Web'; 
  Cadena := BdpCommand.Create(sSQL, MyConeccion, Trans);
  CatalogoReader := Cadena.ExecuteReader;

  DataGrid1.VirtualItemCount := 15000;
  DataGrid1.DataSource:=CatalogoReader;
  DataGrid1.DataBind;

  CatalogoReader.Close;
  Trans.Commit;
  Trans.Free;
end;

Y el de Cambio de pagina

Código Delphi [-]
 DataGrid1.CurrentPageIndex :=e.NewPageIndex;
 CambiarPaginaAux;

Las dos variables las sigo teniendo como globales