Fórum Problema quando tento abrir a Query... Tá difícil #170863

Pessoal estou com um problema que já não consigo saber onde procurar, até as

units do delphi já debuguei, mas não consegui saber onde é o erro, ma achei onde

exibe a mensagem, beleza mas o escopo não é isso.
Mensagem com erro : Invalid floating point operation:
Estou usando o código abaixo:

procedure TfrmSelRelat_Historico_Aluno.btnListarClick(Sender: TObject);
begin
qryHistorico.Active := True;//[b:cac3fed9fb]AQUI DÁ O ERRO[/b:cac3fed9fb]
if (edtNome.Text <> ´´) then
begin
//qryHistorico.SQL[7] := ´ AND A.COD_ALUNO = ´ + edtCodigo.Text;
qryHistorico.Filtered := True;
qryHistorico.Filter := ´A.COD_ALUNO = ´ + edtCodigo.Text;
end
else
begin
qryHistorico.Filtered := False;
//qryHistorico.SQL[7] := ´´;
end;

//qryAlunos.SQL.SaveToFile(´C:\TEMP\RELATORIO.sql´);
//qryHistorico.Open; //[b:cac3fed9fb]AQUI TAMBÉM DÁ O ERRO[/b:cac3fed9fb]
btnVisualizar.Enabled := not qryHistorico.IsEmpty;
chkSalva_Doc.Enabled := not qryHistorico.IsEmpty;
btnVisualizar.Default := not qryHistorico.IsEmpty;
end;

SCRIPT DA QUERY:
SELECT A.COD_ALUNO, A.NOME_ALUNO, PEA.COD_APARELHO, PEA.QUANTIDADE,

PEA.REPETICAO, PEA.CARGA, A.DT_INICIO, A.ID,
PE.SIT_PROGRAMA_EXERCICIO, AP.DESC_APARELHO,

PE.COD_PROGRAMA_EXERCICIO, A.DT_NASCIMENTO, A.OBJETIVO, PEA.ORDEM,
SEGUNDA, TERCA, QUARTA, QUINTA, SEXTA, SABADO, A.ZT_AEROBICO,

INTERVALO, OBSERVACAO, TESTE_CARGA
FROM PROGRAMAS_EXERCICIOS PE, PROGRAMAS_EXERCICIO_APARELHOS PEA, APARELHOS

AP, ALUNOS A
WHERE PE.COD_PROGRAMA_EXERCICIO = PEA.COD_PROGRAMA_EXERCICIO
AND PEA.COD_APARELHO = AP.COD_APARELHO
AND A.COD_ALUNO = PE.COD_ALUNO

ORDER BY PE.COD_PROGRAMA_EXERCICIO, PEA.ORDEM


Onde está comentado já testei , e o código não comentado acabei de testar, da o

mesmo erro, porém eu testei este código que está sem comentar em tempo de

projeto, o Active := True funcinou perfeitamente om filtros e sem filtros. Não

sei o que fazer mais, alguém me ajuuuuude... rs...