[paladincubano]

Prueba este otro a ver si te vale:
Código Delphi [-]Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM db');
Query1.SQL.Add('WHERE fec_ini='+QuotedStr(Edit1.Text));
Query1.SQL.Add('ORDER by fec_ini');
Query1.Open;

espero te sirva.