Consulta de um campo tipo money

Olá pesoal !!!!

Estou criando uma consulta onde o ussuário tem a opção de efetuar essas consultas por vários campos. Um deles é um campo do tipo o money.

O problema é o seguinte, na query de consulta coloquei:

SELECT [campos] FROM [tabela]

WHERE NOME LIKE :NOME

AND VL_COMPRA = :VL_COMPRA

Na Passagem do paramêtro coloquei:

if length(EditVlCompra.Text) <> 0 then

begin

 DM.ADOQueryConsulta.Parameters.ParamByName('VL_COMPRA').Value := StrToFoat(EditVlCompra.Text);

end;

Pois caso o usuário não informe um valor para o campo vl_compra eu quero que retorne tudo q está no banco.

O problema é que dessa maneira a consulta não está retornando nenhum registro, coloquei esse campo como comentário para testar se o problema estava nele mesmo e a consulta foi realizada com sucesso.

Ajudem!!!!

Grata

Cris