Inserta fecha actual

[zvf]

Tengo un problema al querer insertar la fecha de hoy en una base de datos con el siguiente código delphi:

Código Delphi [-]
 
 
  d:=date;
  sd := datetostr (d);
 
 consulta:= 'INSERT INTO `ventas` (`venta_fecha`,`venta_fact`,`venta_total`) VALUES ('+ #39 + sd + #39 +','+ #39 + sesremision + #39 +' ,'+ #39 + ssender + #39 +');' ;
  ZQInserta.SQL.Clear;
  ZQInserta.SQL.Add(consulta);
  ZQInserta.ExecSQL;
 showMessage (sd);

Las variables d y sd son de tipo :
d : TDate;
sd : string;

El mensaje para ver el contenido de la variable sd, muestra:
04/04/2006

Pero en la base de datos, en el campo venta_fecha guarda :
2004-04-20

¿Saben porque me cambia la fecha?
Yo quiero que en la base de datos se guarde la fecha de hoy, es decir:
2006-04-04

¿Que puedo hacer?