Como Insertar por Procedimiento 10 o mas registros para un calendario de pagos?

[IcebergDelphi]

Ok para los que este en una situacion ogual a la mia les dejo el procedimiento Saludos y gracias.

SET TERM ^ ;

CREATE PROCEDURE "Sp_TablaPagos" (
"Pe_NumPagos" INTEGER,
"Date" DATE)
AS
DECLARE VARIABLE "NFechas" INTEGER;
DECLARE VARIABLE I INTEGER;
begin
i=0 ;
while (:i<:"Pe_NumPagos") do
begin
"Date"=:"Date"+14 ;
"Date"=:"Date";
insert into "DetallePagos"("FechaPago","D_IdPagos") values (:"Date",144);
i=i+1;
end
end
^

SET TERM ; ^

GRANT INSERT ON "DetallePagos" TO PROCEDURE "Sp_TablaPagos";

GRANT EXECUTE ON PROCEDURE "Sp_TablaPagos" TO SYSDBA;