delphi - Delphi で年齢を計算する

Question

iAge := 2013 - StrToInt(sJ) ;
if iAge< 18
then
begin
bDatum := False ;
ShowMessage('You must be older than 18!') ;
Exit ;
end; //IF

これを使用すると、現在の年とユーザーが入力した年が取得され、18 歳かどうかがテストされます。月と日を使用してユーザーの年齢を計算する方法を探していますが、役に立たなかったので、Stackoverflow から助けを得たいと思っていました。

助けていただければ幸いです。