Error in configure menu on runing emu

[GoogleCodeExporter]

Form principal

Crash em opend menu in not loadind rom

procedure TForm1.fConfigurar(Sender: TObject);
begin
if EmuStatus = EsRuning then
  Pausa1Click(nil);

  if addr(llamadas_maquina.configurar) <> nil then
    llamadas_maquina.configurar;
  if EmuStatus = EsPause then // evitar erros de acesso a memoria
    Ejecutar1Click(nil);
end;

procedure TForm1.fConfigurar_general(Sender: TObject);
begin
  if EmuStatus = EsRuning then
    Pausa1Click(nil);

  if MConfig = nil then
    application.CreateForm(TMConfig, MConfig);
  MConfig.Show;
  while MConfig.Active do
    application.HandleMessage;

  if EmuStatus = EsPause then
    Ejecutar1Click(nil);
end;

Original issue reported on code.google.com by sremula...@bol.com.br on 2 Dec 2010 at 4:53

[GoogleCodeExporter]

Original comment by leni...@hotmail.com on 2 Dec 2010 at 9:34

• Changed state: Fixed