No entiendo porqué quieres darle formato... según entiendo, no es necesario y con solo hacer:
Código Delphi
[-]Query1.ParamByName('fecha').AsDateTime:= DateTimePicker1.DateTime;
es más que suficiente, al menos así lo hago yo y no he tenido problemas.