Estoy intentando con este otro código y tambien da error:
Código Delphi
[-]
if RadioGroup1.ItemIndex=0 then
begin
Query1.Active := False;
Query1.sql.Text:='select registro,cod_pol,com_pol,ram_pol,bie_pol,can_pol,num_pol,cer_pol,fec_ini,fec_ven,pri_pol,cmn_pol,bon _pol,sub_pol,ced_cli,nom_cli,dir_cli,tel_cli,pag_pol,pre_pol,deu_pol from db Where fec_ini like "' + (Edit1.Text) + '%"';
Query1.Active := True;
end;