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

[IcebergDelphi]

Hola amigos, estoy haciendo un sistema de recuperacion de creditos, pero a cada cliente necesito generarle su tabla de pagos, dependiendo del numero de pagos; por ejemplo a un cliente que tenga que hacer 5 pagos , generar su tabla de pagos con los siguientes datos:

NoPago ( este debe de ser autonumerico, incremental)
Pago
fecha de pago( cada 14 dias)

Juan Perez Jolote:

NoPago1 100 240107
NoPago2 100 070207
NoPago3 100 210207
.
.
NoPago5 100 Ultimafecha.

Alguien del Foro ha hecho algo parecido a lo que pido.

Trabajo con firebird y de preferencia que este codigo quedara directamente sobre la BD en Un procedimiento almacenado

Saludos y Gracias.

[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;