procedure Tzurnals.NewZurnalExecute(Sender: TObject);
var
  qyTable: TADOQuery;
  TabName1: string;
begin
  TabName1:= InputBox('zurnal', 'Введите год на который создаётся журнал', '');
  if TabName1 = '' then
    begin
      StatusBar1.Panels[1].Text:= 'Журнал не создан. Нужно ввести год цифрами';
      exit;
    end;
  TabName1:= 'zurnal_' + TabName1;
  qyTable:= TADOQuery.Create(Self);
  qyTable.Connection:= dm.ADOConnection1;
  with qyTable do
  try
    try
      SQL.Clear;
      SQL.Add('CREATE TABLE ' + TabName1 + '(data date, vremya time, seans Text(200), ' +
              'about Text(50), sost Text(25), reklama Text(200), id Counter, dlina time, ' +
              'vidpok Text(50), PRIMARY KEY (id))');
      qyTable.Parameters.Clear;
      Prepared:= true;
      // ExecSQL, а не Open. Иначе ... облом

      ExecSQL;
    except
      // Обработка ошибок открытия таблицы Возможности обработчика можно расширить.

      Exception.Create('Ошибка открытия таблицы');
    end;
  finally
    Close;
    qyTable.Free;
    System.Delete(tabname1, 1, 7);
    StatusBar1.Panels[1].Text:= 'Новый журнал на ' + TabName1 + ' год создан';
  end;
end;

INSERT INTO какая-то-таблица_arch (SELECT * FROM какая-то-таблица WHERE условие_по_которому_определяется_что_данным_исполнился_год);

DELETE FROM какая-то-таблица WHERE условие_по_которому_определяется_что_данным_исполнился_год;