Fórum como liberar memória #335233

type
  Reg_Tabela = packed record
    Tab_Arquivo: array[0..19] of Char;
    Tab_Registros: Integer;
  end;

  procedure DLLNCR(var ATabela: Reg_Tabela); stdcall; external ´gerancr.dll´;

procedure TfrmTabela.btnGeraTabela;
var Tabela: Reg_Tabela;
begin

  try
    Tabela.Tab_Arquivo := ´´;
    Tabela.Tab_Registros := 0 ;
    { : Aqui executo a dll }
    DLLNCR(Tabela);
    TxtArquivo.Text := Tabela.Tab_Arquivo;
    TxtRegistros.Text := IntToStr(Tabela.Tab_Registros);
  except
    Application.MessageBox(´ERRO ao compactar a tabela [ NOS.SEM ]´, ´DllNcr´,
                                                            MB_OK+MB_ICONERROR);
  end;

end;

faulted with message: ´access violation at 0X61046d46 read of address 0X00000000´