Как проверить, что набор не пуст ? и потом вставить набор в другую таблу
Я делаю так ...
Подскажите как можно еще проверить ...

dm.Qdebet.Close;
dm.Qdebet.SQL.Clear;
dm.Qdebet.SQL.Add('SELECT DT,AD,AK,SUM(SMR) FROM ');
dm.Qdebet.SQL.Add(NewName[mes,j]);
dm.Qdebet.SQL.Add( 'WHERE DT>='+ #39 +'300000'+#39+' AND DT<='+#39+'339999'+#39);
dm.Qdebet.SQL.Add(' GROUP BY DT,AD,AK');
dm.Qdebet.SQL.Add(' HAVING SUM(SMR)<>0');
dm.Qdebet.Open;

//Если записей не 0 , то заполняем временную таблицу
if not dm.Qdebet.IsEmpty then
begin
dm.Qdebet.Close;
dm.Qdebet.SQL.Clear;
dm.Qdebet.SQL.Add('INSERT INTO '+File_out+'(DT,AD,AK,SMR) ');
dm.Qdebet.SQL.Add('SELECT DT,AD,AK,SUM(SMR) FROM ');
dm.Qdebet.SQL.Add(NewName[mes,j]);
dm.Qdebet.SQL.Add( 'WHERE DT>='+ #39 +'300000'+#39+' AND DT<='+#39+'339999'+#39);
dm.Qdebet.SQL.Add(' GROUP BY DT,AD,AK');
dm.Qdebet.SQL.Add(' HAVING SUM(SMR)<>0');
dm.Qdebet.Prepare;
dm.Qdebet.ExecSQL;
end
else dm.Qdebet.Close;

точно
но я еще сюда вернусь ...