[lucho6007]

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

Te esta factando liberar el formulario, no hace falta poner el nil en el Destroy


Saludos,