[АНЯ17]

Здравствуйте, хотела уточнит дата рож у меня получается, но с хвостиком ст. рис.1
В поле edit1.text 17,275 а мне надо целое 17 ??? в edit2.text или в любому поле. Значение 1,2 с еdit1.text надо скопировать в edit2.text ???

Код:

var
    day1, day2 : TDateTime;
    diff : Double;
begin
 	day1 :=DateTimePicker1.Date;
  	day2 :=DateTimePicker2.Date;
 	diff := day2 - day1;
   	edit1.Text:=(FloatToStr(diff));
  	edit1.Text := floattostr(strtofloat(edit1.Text) /30/12 );
end;

за. ран.спс.