[inetplus]

Tengo un problema que me impide continuar con la programación de mi sistema y no se a que se debe, a continuación detallo el proceso:
Tengo una ventana la cual es mostrada en pantalla a través de ShowModal, la misma consta con un componente TPageControl y dos botones, asociados cada uno con la variable MROk y MrCancel.
Resulta que al presionar sobre alguno de estos botones no cierra la ventana a la primera, sino que hay que presionarlo nuevamente para concluir la operacion.

Yo pienso que el problema se presenta por el componente TPageControl, ahora no entiendo porque

Este es el codigo:

FSel_Tarjeta:=TFSel_Tarjeta.Create(Nil);
Try
With FSel_Tarjeta do
Begin
Valor1:=0; Valor2:=0;
ShowModal;
If ModalResult = mrOk //entra si se acepta la operacion
Then
If PageControl1.ActivePage = TabSheet1 //establece cual es la pestaña activa
Then Recargo_Tarjeta:=PagoTarjeta
else Recargo_Tarjeta:=PagoCheque
else Recargo_Tarjeta:=0;
end; //with
Finally
FSel_Tarjeta.free // cierra la ventana
end;
end;