[salvica]

También puedes hacer los siguiente

 with Query.SQL do begin
     Add( 'CREATE TABLE IF NOT EXISTS facturas'+FormatDateTime('yyyy', Now)+'( ' );
     Add( 'aqui insertas los campos que quieras' );
     Add( 'y aqui insertas las claves que utilices' );
     Add( '); ';
end;
Query.ExecSQL;

Con esto se creará la tabla "facturasXXXX" cuando no exista en la Base de Datos
Saludos