Saludos.
La funcion "date" devuelve la fecha actual.
Yo utilizo esta funcion para extraer la fecha:
Código Delphi
[-]
function ExtraerFecha(fechayhora :TDateTime) : TDateTime;
var year,Month,Day : word;
begin
DecodeDate( fechayhora, Year, Month, Day);
result := EncodeDate(Year, Month, Day);
end;
Espero que te sirva.
Un saludo.