Fórum Erro ao comparar dois TDateTime #300951

Colegas tenho a seguinte situação

var v_data_almoco_ini, v_hora_almoco_fim, v_data_almoco_fim, v_hora_almoco_ini, v_diferenca_almoco :TDateTime;
begin
if (v_client_jornada.fieldbyname(´C_TEMPO_ALMOCO´).AsDateTime <> null) or ((v_hora_almoco_ini <> null) and (v_hora_almoco_fim <> null)) then
begin
v_diferenca_almoco := ((v_data_almoco_ini + v_hora_almoco_fim) -
(v_data_almoco_fim + v_hora_almoco_ini));
end;

Até aqui só armazeno os dados nas variáveis..

O Erro :

if v_diferenca_almoco = v_client_jornada.fieldbyname(´C_TEMPO_ALMOCO´).AsDateTime then
begin
v_du := v_du +
v_client_jornada.fieldbyname(´C_CARGA_HORARIA´).AsDateTime;
end;

Quando estou debugando :

v_diferenca_almoco := 0,004312

v_client_jornada.fieldbyname(´C_TEMPO_ALMOCO´).AsDateTime := 0,004312

exatamente iguais..

mas o Delphi retorna false nesta comparação..

Alguém sabe o Pq??

Uso Delphi 7 .CLX, e Firebird 1.5 Final

Agradeço a atenção de todos