if FindFirst('_Q*.db', $23, FileName) = 0 thenbeginrepeatDeleteFile(FileName.Name)until FindNext(FileName) <> 0;end;