hola, y por si te sirve de ayuda extra, pues el codigo anterior es muy correcto.
Código Delphi
[-]
query1.active := false;
query1.SQL.Text := 'select * from tabla where fecha = ' + QuotedStr(FormatDateTime('mm/dd/yyyy',Dtpk.Date));
query1.active := true;
showmessage(inttostr(query1.RecordCount));