(Resolvido) Erro Inaccessible Value

[Eduardo Morais]

Pessoal, estou com um problema desde a semana passada e não consigo resolver, já procurei na net porém não obtive sucesso.

Problema:

Eu tenho uma unit com uma variável privada:

private 
    FLiberar: integer;

Logo abaixo eu tenho uma property com o meu metodo get e set para gravação e leitura da variável e também tenho uma procedure para a gravação desse valor:

public 
    property Liberar: Integer read FLiberar write SetLiberada; 
    procedure SetLiberada(const Value: Integer);

procedure TCD_Notas_Disciplinas_ALuno.SetLiberada(const Value: Integer); 
begin 
  FLiberar := Value; 
  btnLiberada.Enabled :=  arquivo.qy_Turma_Pauta_alunoTURPAUSTATUS.Value = 'ME'; 
  if FLiberar = 1 then 
    btnLiberada.Caption := 'Bloquear Disciplina' 
  else 
    btnLiberada.Caption := 'Liberar Disciplina'; 
end;

Dai na minha segunda Unit eu faço a chamada do metodo write para gravar um valor na minha variável privada:

procedure Tarquivo.ds_Turma_Pauta_alunoDataChange(Sender: TObject; 
  Field: TField); 
begin 
  if qy_Turma_Pauta_alunoLiberada.Value = 'S' then 
     CD_Notas_Disciplinas_ALuno.Liberar:= 1 
  else 
    CD_Notas_Disciplinas_ALuno.Liberar := 0; 
end;

Esse código funcionava normalmente, só que de alguns dias pra cá começou a dar erro, não sei porque ele começou a parar de funcionar quando chega nessa linha:

FLiberar := Value;

Vim debugando e percebi que essa variável está com Inaccesseble Value e me gera um erro de Access violation porque essa variável "não existe", agora não sei a causa desse erro tendo em vista que o código funcionava perfeitamente.

Isso ocorre quando acessa o objeto de um formulário em outro...

Agradeço a todos desde já.

Editado Setembro 20, 2010 por Eduardo Morais

[Eduardo Morais]

Pessoal, eu consegui o problema é que eu criei uma procedure que chama os formulários para não ficar chamando um por um, dai eu passo como referencia o nome do formulário e abro isso me gerava o erro...

class procedure TGlobal.ChamarFormulario(
  lo_obj_formulario: TComponentClass);
var
  lo_formulario : TForm;
begin
  Application.CreateForm(lo_obj_formulario, lo_formulario);
  with lo_formulario do
    begin
      ShowModal;
      Release;
    end;
end;

agora vou arrumar...