if flt1 = '' then DataModule1.ADOQuery1.Filter := flt2 else DataModule1.ADOQuery1.Filter := flt1 + ' and ' + flt2