[NIch]

Добавить процедуру добавления.

А что добавлять???
Вот DaysBetWeen
http://www.delphisources.ru/pages/fa...tween.php.html
А выгладит примерно так...

Код:

var 
 Date1, Date2 : TDate;
 Days : word;
begin
 Date1 := DateTimePicker1.Date;
 Date2 := Date;
 Days := DaysBetWeen(Date1, Date2);
 ShowMessage('С вашего дня рождения по сегодняшний день прошло '+
                     IntToStr(Days)+' дней');
end;