Hola y_a_p, es mejor que utilices las funciones de fecha:
Código Delphi
[-]
var Anyos, Meses : Integer;
begin
Anyos := YearsBetween(Now, FechaInicio);
if Anyos > 0 then
FechaInicio := IncYear(FechaInicio, Anyos);
Meses := MonthsBetween(FechaInicio, Now);
showmessage('Edad :'+IntToStr(Anyos)+' Años '+IntToStr(Meses)+' Meses');
lo acomodas a tu codigo.
Saluditos