[АНЯ17]

Код:

var
Date1 : TDateTime; // Date from ...
Date2 : TDateTime; // Date to ...
days: longint;
begin
Date1 := DateTimePicker1.DateTime;
Date2 := DateTimePicker2.DateTime;
days:=Trunc(Date2-date1);
//showmessage(inttostr(days)+' days');
//showmessage(inttostr(days div 12)+' months');
//showmessage(inttostr(days div 365)+' years');
  Label1.Caption:=(FloatToStr(days div 365));
end;

Все задачка решено, спс. за советы.