Inserção múltipla Firebird

Bom dia pessoal,

Necessito fazer uma inserção múltipla em uma base da dados FB 1.5, como a aplicação é WEB, por questão de desempenho, pensei em utilizar Stored Procedure:

SET TERM ^ ;

CREATE PROCEDURE INSERE_NULTIPLO (
meses integer)
as
begin
while (meses < 12) do
begin

 insert into tipo_local(tipo_local.tipo_local) values ('teste');
 meses = meses+1;
 end

SET TERM ; ^

dentro desse while, gostaria que fossem inseridos os registros. Porém quando executo, não ocorre nenhum erro, porém não salva nada nesta tabela... O que está errado?