Problema con fecha

[ekstase]

Buenas noches amigos, si alguien me puede dar una manito. Tengo el siguiente problema resulta q quiero guardar datos personales de todos los empleados de mi oficina para esto uso una aplicación creada con Delphi 7 y MySQL y resulta que con el codigo que les voy a mostrar puedo grabar todos los datos salvo las fechas, estas guardan pero de esta manera 0000-00-00.
La fecha la selecciono de un DateTimePicker pero siempre la graba todo en (0) Cero. Porque?

DM = Data Module
Consulta = Query

Este es el código:
=============


if DM.Consulta.Active Then
DM.Consulta.Close;
DM.Consulta.Active;
DM.Consulta.SQL.Clear;
DM.Consulta.SQL.Add('Insert Into Personal (Apellido, Fecha_Nacimiento)');
DM.Consulta.SQL.Add('Values (:Apellido, :Fecha_Nacimiento)');
DM.Consulta.ParamByName('Apellido').Value := Edt_Apellido.Text;
DM.Consulta.ParamByName('Fecha_Nacimiento').Value := Dtp_FechaNac.Date;
DM.Consulta.ExecSQL;