Pequisar no DBGrid com o DateTimePicker1 usando Table1

Ajuda ae pessoal, to quase na conclusão do meu projeto, mas quero colocar uma DateTimePicker1 para buscar alguém por data ou melhor buscar uma consulta marcada neste dia por data.

Eu tentei usar assim, mas fico obvio que nao deu mas ta ae o código pra vcs ter uma ideia do que eu queria realmente...

begin

table1.Filtered := False;
if (DateTimePicker1.Text <> '') then
begin

table1.Filter := 'Data=' +QuotedStr(DateTimePicker1.text + '*');
table1.Filtered := True;

if not table1.locate('Data',DateTimePicker1.text,[loCaseInsensitive, loPartialKey]) then

showmessage('Data incorreta ou não existe consultas neste dia... !');
end;

end;

Mas ou menos isso, mas fico claro que nao deu... mas se alguem tiver uma ideia de como faço sem for pelo SQL pois tem muito, mas nao me adaptei a ele e o meu projeto todo é feito com a DataSource1 e table1... e ficaria foda trocar tudo será que me entendem... pelo menos haver uma luz nesse mundo alguem me dehh :D