[M.A.D.M.A.N.]

Дата передается целым числом до точки, тип Double после точки идет время.
12/06/2002 т.е число будет выглядеть как 12062002, далее тебе необходимо получить нужное тебе число.

Код:

var temp:string;
date:TDate;
day,month,year:string;
begin
  date:=StrToDate('12/06/2002');
  temp:=DateToStr(Date);
  Month:=copy(temp,1,2);
  Day:=Copy(Temp,3,2);
  Year:=Copy(Tmp,6,2);
end;