Fórum Calc. delphi #442637

tenho uma aplicação de contagem de datas com os seguintes codigos:

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
Ano, Mes, Dia, Ano1, Mes1, Dia1, Ano2, Mes2, Dia2 : Word;
Data1, Data2 :TdateTime;
Resultado : String;
begin
If StrToDate(MaskEdit1.Text) < StrToDate(MaskEdit2.Text) then
begin
Data1 := StrToDate(MaskEdit1.Text);
Data2 := StrToDate(MaskEdit2.Text);
end
else
begin
Data1 := StrToDate(MaskEdit2.Text);
Data2 := StrToDate(MaskEdit1.Text);
Resultado := 'Falta ';
end;
DecodeDate(Data1, Ano1, Mes1, Dia1);
DecodeDate(Data2, Ano2, Mes2, Dia2);
if Dia2 >= Dia1 Then
begin
Dia := Dia2 - Dia1;
end
else
begin
If Mes2 = 1 then
begin
Dia := Dia2 + 31 - Dia1;
Mes2 := Mes2 - 1;
Ano2 := Ano2 - 1;
end
else
begin
If Mes2 = 3 then
begin
Dia := Dia2 + 28 - Dia1;
Mes2 := Mes2 - 1;
end
else
begin
If (Mes2 = 5) or (Mes2 = 7) or (Mes2 = 10) or (Mes2 = 12) then
begin
Dia := Dia2 + 30 - Dia1;
Mes2 := Mes2 - 1;
end
else
begin
Dia := Dia2 + 31 - Dia1;
Mes2 := Mes2 - 1;
end;
end;
end;
end;
If Mes2 >= Mes1 then
begin
Mes := Mes2 - Mes1;
end
else
begin
Mes := Mes2 + 12 - Mes1;
Ano2 := Ano2 - 1;
end;
If Ano2 >= Ano1 then
begin
Ano := Ano2 - Ano1;
end
else
begin
Ano := 0;
end;
If Ano < 2 then
Resultado := Resultado + IntToStr(Ano) + ' Ano, '
else
Resultado := Resultado + IntToStr(Ano) + ' Anos, ';
If Mes < 2 then
Resultado := Resultado + IntToStr(Mes) + ' Mes, '
else
Resultado := Resultado + IntToStr(Mes) + ' Meses, ';
If Dia < 2 then
Resultado := Resultado + IntToStr(Dia) + ' Dia.'
else
Resultado := Resultado + IntToStr(Dia) + ' Dias.';
Label1.Caption :=(Resultado);
Label1.Visible :=true;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Label1.Visible :=false;
MaskEdit1.Clear;
MaskEdit2.Clear;
MaskEdit1.SetFocus;

end;

procedure TForm1.FormActivate(Sender: TObject);
begin
MaskEdit1.SetFocus;
end;


OBS: QUANDO EU FAÇO A SUBTRAÇÃO QUE NUMEROS DAS DATAS MAIS ATUAIS SÃO MAIORES, AÍ DA CERTINHO, EX; ANO 2000 MES 10 DIAS 09 MENOS 1999 09 08 O RESULTADO É 01 ANO 01 MES E 01 DIA, MAIS QUANDO ACONTECE O INVERSO AÍ DÁ UMA DIFERENÇA MAIS OU MENOS DE 20 DIAS OLHA SÓ O EXEMPLO. QUANDO EU DIMINUO 1989 03 03 DE 1988 05 08 O RESULTADO DEVERIA SER 00 ANO 10 MES E 06 DIAS MAIS ESTÁ SAINDO 00 ANO 09 MESES E 23 DIAS,

POR FAVOR ALGUEM ME DÊ UMA DICA?