[[oscarac]]

buenas noches
tengo un modulo de facturacion donde invoco a la pantalla de ingreso de datos de esta manera

Código Delphi [-]
procedure TfrmEmisionFactura.btnAgregaClick(Sender: TObject);
begin
  p_opcion := 0;
  While p_Opcion = 0 do
  Begin
    frmEmisionFacturaD:= TfrmEmisionFacturaD.Create(nil);
    frmEmisionFacturaD.ShowModal;
  End;
end;

y en el formulario que invoco hay una opcion para agregar articulos y lo invoco de la siguiente manera

Código Delphi [-]
procedure TfrmEmisionFacturaD.btnAgregaClick(Sender: TObject);
begin
  _accion := 0;
  While _Accion = 0 do
  Begin
    CdsDetalle.Append;
    frmEmisionFacturaDDato := TfrmEmisionFacturaDDato.Create(nil);
    frmEmisionFacturaDDato.FormStyle := fsNormal;
    frmEmisionFacturaDDato.Visible := False;
    frmEmisionFacturaDDato.ShowModal;
  End;
end;

cuando ejecuto el programa funciona a la perfeccion la primera vez

luego, cuando grabo la factura se invoca el formulario "frmEmisionFacturaD" (se abre con normalidad)

pero sucede algo curioso, el campo tipo de documento no recibe el foco, hasta que yo presione alguna tecla
y luego cuando quiero agregar productos aparece el mensaje que adjunto.


PERO

si al momento de invocar el formulario "frmEmisionFacturaD" quitandole en el programa el "bucle"

Código Delphi [-]
While p_Opcion = 0 do
  Begin
  end..

no me aparece ningun error


en el destroy agrego lo siguiente en cada uno de los formularios

Código Delphi [-]
frmEmisionFacturaD := nil;

Código Delphi [-]
frmEmisionFacturaDDato := nil;

alguien tiene alfguna idea de lo que sucede?