Gerar Parcelas p/ vários alunos

Boa Tarde, galera!!!

Estou c/ um probleminha... Seguinte, estou fazendo o financeiro do meu sistema escolar e gostaria de saber se tem uma forma de gerar de uma só vez uma quantidade x de parcelas para todos os alunos de uma determinada série.

Estou utilizando o seguinte código para gerar parcelas de 1 aluno:

CODE
var

 DataVcto, DataPgto: TDate;

 DiasAtraso: Integer;

begin

 DataVcto:= StrToDate(Edit1.Text);

 DataPgto:= Date;

 DiasAtraso:= Trunc(DataPgto - DataVcto);

 Label1.Caption:= IntToStr(DiasAtraso);

 

 if DiasAtraso > 0 then

 begin

 //Calcula juros para conta com base na var DiasAtraso

 end

 else begin

 //Calcula conta SEM Juros, pq naum esta atrasada ...

 end;

Esse código eu consegui c/ um amigo aqui no forum e ele funciona perfeitamente para gerar as parcelas de 1 aluno, gostaria de saber como implementá-lo para gerar parcelas p/ vários alunos de uma série...

Desde já agradeço qualquer tipo de ajuda!!!