Adoquery1.SQL.Clear ;
Adoquery1.SQL.Add('delete from BB where fileid in (select fileid from QQ where KK15<'''+(edit1.text)+''')');
Adoquery1.SQL.Add('delete from CC where fileid in (select fileid from QQ where KK15<'''+(edit1.text)+''')');
Adoquery1.SQL.Add('delete from QQ where QQ15<'''+(edit1.text)+''' ');
Adoquery1.ExecSQL ;