Щом е толкова спешно направо ти го пиша тука.. а ти си го тествай и доизкусурявай...
//----------------------------------------------------
Function GetAges:Integer;
var
DtTm : TDateTime ;
EditEGN : TEdit ;
ages : Integer ;

begin
ShortDateFormat := 'ddmmyyyy';
// тук трябва сам да се погрижиш EGN-да е форматирано
// TestEGNIsCorrect(Trim(EditEGN.Text));
DtTm := StrToDateTime(Copy(Trim(EditEGN->Text),1,8));
ages = Integer(Now - DtTm);
// От тук нататък с DtTm имаш много възможности за сметки и прочее...
// в.ж. DateTimeToStr, DateToStr и т.н.
Result := ages;
end;
//----------------------------------------------------

И все пак виж хелпа за ShortDateFormat защото пиша по памет...
Може да е LongDateFormat....

извинявай за закачката ..не че и аз съм много велик ама с тези неща като "жонглиране" с дати и часове трябва да си поиграеш още преди да знаеш за какво служи F9 :))))