Label2.caption:=YearsBetween('20/05/1982', '20/05/2010');
var First, Second: TDateTime;begin First:= Now; Second:= EncodeDate(2000, 1, 1); Label1.caption:= IntToStr(YearsBetween(First , Second)); end;