Hola
Supongo que Dtp_FechaNac es el datetimepicker?.
Tal vez asi:
Código Delphi
[-]
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 := DateToStr(Dtp_FechaNac.Date);
DM.Consulta.ExecSQL;
Bueno, a probar.
Saludos