SUBTRAÇÃO DE TEMPO DE SERVIÇO

[paulommog]

Tenho um programa de contagem de tempo de serviço que sai o resultado total no seguinte EDIT:

 

Edit6.Text := IntToStr(AnoT)+ ' Ano(s), '+ IntToStr(MesT)+ ' Mês(s), ' + IntToStr(DiaT)+' Dia(s)';

 

Porém estou precisando também calcular quanto tempo falta ainda para a pessoa aposentar que é:

 

30 anos de serviço ou seja pega 30 ANOS 00 MES e 00 DIA

 

e subtrai pelo resultado:

 

Edit6.Text := IntToStr(AnoT)+ ' Ano(s), '+ IntToStr(MesT)+ ' Mês(s), ' + IntToStr(DiaT)+' Dia(s)';

 

aí vai sair o tempo que ainda falta para aposentadoria, alguém pode me ajudar como subtrair o resultado de 30 anos 00 mês e 00 dia?