대부분 아시는 내용이지만 가끔 모르시는 분들을 위해 참고삼아 적어봅니다.

TDateTime 형이 Double형인것은 다른분들도 설명이 되어 있는 부분이고요.
저기서 날자만 읽어 오는 경우
Trunc( 날자형변수 )  이러면 날짜만 읽어 오죠.
시간만 읽어 오려면 Frac( 날자형변수 )를 쓰시면 소수이하의 값만 읽어 오기때문에 시간만 읽어 올수 있습니다.

var
날자,
시간,
날자와시간 : TDateTime;
begin
날자와시간 := Now;
날자 := Trunc( 날자와시간 );
시간 := Frac( 날자와시간 );

이런식으로 구해지는 거지요.

참고만 하시기 바랍니다.