Fórum Access Violation at Adress #244778

Meus amigos do portal, preciso de ajuda para resolver este pequeno bug.
Utilizo o delphi 7, banco firebird, componente dbexpress.
O cliente está trabalhando, iserindo informações, alterando, fazendo consulta, gerando relatório, etc. ora ou outra aparece esta mensagem(Access Violation at Adress 03f71c10: read of address).
Em algum momento utililizo query dinamica como ex. abaixo:

with TSQLQuery.Create(nil) do
begin
try
SQLConnection := FrmPrincipalSGCAdm.SQLConnection1;
Sql.Add(´ SELECT PROD_CODIGO, PROD_DESCRICAOPRODUTO,PROD_QTDEESTOQUEFISICO, PROD_PRECOAVISTA FROM PRODUTO´);
Sql.Add(´ WHERE EMP_CODIGO =´ +IntToStr(FrmPrincipalSGCAdm.CodEmpresa));
Sql.Add(´ AND PROD_CODIGO = ´+IntToStr(cdsDetalhePROD_CODIGO.AsInteger));
Open;
cdsDetalhePIT_VALORUNITARIO.AsCurrency := Fields[3].AsCurrency;
finally
Free;
end;
end;


Ou chamar uma tela padrao para consulta.

edtBanco.SetFocus;
FrmPesquisaGeral.QryPadrao.close;
FrmPesquisaGeral.QryPadrao.sql.Clear;
FrmPesquisaGeral.QryPadrao.SQL.Add(´SELECT BCO_CODIGO AS CodBanco, Bco_DESCRICAO as Banco ´);
FrmPesquisaGeral.QryPadrao.SQL.Add(´FROM banco´ );
FrmPesquisaGeral.QryPadrao.SQL.Add(´WHERE BCO_DESCRICAO like :Pesquisa ´ );
FrmPesquisaGeral.ResultField := 1;
FrmPesquisaGeral.Pesquisa := true;
result := FrmPesquisaGeral.Open;
if result <> null
then begin
edtBanco.Text := result;
edtBanco.OnExit(Sender);
end;

Alguem pode me ajudar a resolver este problema? o que pode ser isto?
problema de memória, ou algum bug na minha aplicação?

Obrigado um abraço a todos.

Plácido