[lKinGl]

intenté tambien con:

Código Delphi [-]
 
if RadioGroup1.ItemIndex=0 then
begin
  Query1.Active := False;
  query1.sql.Text := 'Select fec_ini from db.db where fec_ini = :fecha';
  Query1.ParambyName('fecha').ASDate := StrtoDate(Edit1.Text);
  Query1.Active := True;
end;

pero sigue sin funcionar