Problema date (TDateTimePicker)

Boa noite,

Estou tendo um problema quando faço o teste entre datas sendo que a partir de um TDateTimePicker faço a extraçao da data para comparar com uma data de uma tabela e verificando o valor no passo a passo vejo que o objeto traz o seguinte formato de data: 37987.726371 e na tabela é retornado apenas o valor antes do ponto.
Como fazer para que as duas datas venham no mesmo estilo?

Ja tentei passar os valores tanto da tabela quanto da TDateTimerPicker para uma variavel Tdate mas continua do mesmo jeito.

Agradeço desde ja a ajuda.

Sanzio F. C. Amora