Paginación datagrid

[Mariolarr]

Hola de nuevo, jeje la verdad es que el foro me está cundiendo .
Ahí va la pregunta: Tengo un datagrid paginado, muestra correctamente el contenido pero cuando selecciono otra página me muestra la tabla sin contenido y en el pie está seleccionada el número de página que había pulsado. En el evento PageIndexChanged tengo el siguiente código:

Código Delphi [-]
  
DataGrid1.CurrentPageIndex := e.NewPageIndex;
DataGrid1.DataSource:=CatalogoReader;
DataGrid1.DataBind;

Y la carga inicial del datagrid se hace mediante el siguiente código, donde la variable CatalogoReader : BdpDataReader; está declarada de forma global:

Código Delphi [-]
var
  Trans : BdpTransaction;
  Cadena: BdpCommand;
  sSQL: string;
  //CatalogoReader : BdpDataReader;
  i: integer;
begin

  Trans := MyConeccion.BeginTransaction();
Art_Codi = ''1000VIT''';
  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;
  DataGrid1.DataBind;


  Trans.Commit;
  Trans.Free;

Espero vuestras respuestas porque realmente llevo tiempo con esto.
Gracias anticipadas