Lo puedes hacer asi...
Código Delphi
[-]
consulta:='select * from Aluminio where Fecha = :Fecha order by Folio';
Query1.sql.text := consulta;
Query1.Parameters.ParamByName('fecha').vale := edit1.text
Query1.Active := true;
Solo hay un detalle, depende de la version de delphi que tengas
puede ser que la siguiente linea cambie.
Código Delphi
[-]
Query1.ParamByName('fecha').vale := edit1.text
No se le pone el "Parameters"
Espero que le ayude...