[Resolvido] Calcular Juros e multa

Boa Tarde amigos,

Estou enfrentando um problemão... Estou na parte financeira do meu sistema e tenho q calcular juros e multa nas mensalidades q estão em atraso, mas p/ isso tenho fazer várias verificações, por ex. saber a se o ano é bissexto, se o mês é de 30 ou 31 dias. Pesquisei muito na internet sobre o assunto e achei várias funções p/ saber se o ano é bissexto e se o mês é de 30 ou 31, o problema é q ñ sei como chamar essas funções p/ agregá-las ao código q irá fazer o cálculo de juros e multa... Esse é meu primeiro sistema c/ cálculos e estou meio q perdido no assunto... Preciso saber a qtd de dias q uma determinada parcela está em atraso p/ assim aplicar os juros e multa. Se alguém tiver alguma sugestão de função e como utilizá-la eu agradeceria muito. Ou se alguém tiver outras sugestões será muito bem vinda...

As funções q achei foi:

//Para saber se o ano é bissexto

function Bissexto(Ano: Word):Boolean;

begin

Result:=False;

if Ano mod 4 =0 then begin

Result:=True;

if Ano mod 100 =0 then Result:=(Ano mod 400 = 0);

end;

end;

//Para saber a quantidade de dias entre duas datas

Dias: Word; D2,D1: TDateTime;

Dias:=Trunc(D2-D1);

Mas como falei ñ sei como usá-las... Aguardo qualquer ajuda de vcs!!!