Insertar 450,000 de un golpe.

[acalderonr]

Hola a todos. He buscado algo que me oriente en los foros y no encuentro exactamente lo que me gustaría hacer.

Estoy haciendo una aplicación para administración de Vales, pero de cada vale necesito ciertos campos y un registro independiente vale por vale, por tanto, mi cliente recibe de entrada 450,000 vales en diferentes denominaciones, pero necesito, por tanto, agregar un registro por cada folio de vale.

Estoy usando Delphi 6, Firebird 2.1 con los componentes de la pestaña Interbase en mi máquina Core2Duo, si ejecuto un for ... while del 1 al 450mil con un IBQuery con la sentencia "insert into almacen ..." para cada vale, se tarda 52segundos en hacerlo, alguien tendrá una idea para hacerlo mas eficiente?

Espero haber sido claro. Gracias de antemano y saludos.