Insisto, probé el código y me funcionó.
Esta línea:
f_cita.PageControl1.ActivePageIndex := (f_cita.PageControl1.PageCount - 1);
podría ponerse fuera del while. (igual no es el problema por el cual no se muestra nada.)
Podrías copiar TODO el código (incluyendo lo que está arriba y abajo del while ??
|