[microbiano]

bueno el problema que tengo es que no guarda la fecha correcta en la base de datos por ejemplo si paso como parametro 10/11/2009 en la base de datos me inserta la fecha 1900-01-01 00:00:00.000, y no encuentro el problema alguien me puede ayudar

Código Delphi [-]
procedure Tfcontribuyente.BguardarClick(Sender: TObject);
 var wsap: string;
 var wnocontrato: string;
 var wnombre: string;
 var wpaterno: string;
 var wmaterno: string;
 var wlocalidad: string;
 var wcalle: string;
 var wnoext: integer;
 var wnoint: integer;
 var wcp: integer;
 var wfechare: TDate;
 var wtel: String;
 var wobs: string;
 var wanio:  string;
 var wmes: string;
 var wdia: string;
 var wsegundo: string;
{genero numero de contrato}
  wsap:='SAP-C';
  wanio:=FormatDateTime('yyyy',Date);
  wmes:=FormatDateTime('mm',Date);
  wdia:=FormatDatetime('dd',date);
  wsegundo:=formatdatetime('ss',Time);
  {tomo datos de campo}
  wnocontrato:=trim(wsap+wanio+wmes+wdia+wsegundo);
  wnombre:=trim(fcontribuyente.txtnombre.Text);
  wpaterno:=trim(fcontribuyente.txtpaterno.Text);
  wmaterno:=trim(fcontribuyente.txtmaterno.Text);
  wlocalidad:='SAN MIGUEL XALTIPAN';
  wcalle:= trim(fcontribuyente.txtcalle.Text);
  wnoext:=StrToint(fcontribuyente.txtext.Text);
  wnoint:=StrToint(fcontribuyente.txtint.Text);
  wcp:=StrToint('54090');
  wfechare:=Dfecha.Date;
  wtel:=trim(fcontribuyente.txttel.Text);
  wobs:=trim(fcontribuyente.txtobser.Text);
  {ejecucion}
  fmodulo.Qcontry.Close;

Código SQL [-]
with fmodulo.Qcontry do
    begin
     sql.Clear;
     sql.Add(' insert into sap_contrato (');
     Sql.Add(' nocontrato ,');    //1
     sql.Add(' nombre ,');//2
     sql.Add(' paterno ,');//3
     sql.Add(' materno ,');//4
     sql.Add(' localidad ,');//5
     sql.Add(' calle ,');//6
     sql.Add(' noext ,');//7
     sql.Add(' noint ,');//8
     sql.Add(' cp ,');//9
     sql.Add(' fecharegistro ,');//10
     sql.Add(' telefono ,');//11
     sql.Add(' observacio ');//12
     sql.Add(' ) values (');
     sql.Add(' '+QuotedStr(wnocontrato)+', ');//1
     sql.Add(' '+QuotedStr(wnombre)+', ');//2
     sql.Add(' '+QuotedStr(wpaterno)+', ');//3
     sql.Add(' '+QuotedStr(wmaterno)+', ');//4
     sql.add(' '+QuotedStr(wlocalidad)+', ');//5
     sql.Add(' '+QuotedStr(wcalle)+', ');//6
     sql.Add(' '+IntToStr(wnoint)+', ');//7
     sql.Add(' '+inttostr(wnoext)+', ');//8
     sql.Add(' '+Inttostr(wcp)+', '); //9
     sql.Add(' '+DateToStr(wfechare)+', ');//10
     sql.Add(' '+QuotedStr(wtel)+', ');//11
     sql.Add(' '+QuotedStr(wobs)+')');//12
     fcontribuyente.lvalida.Caption:=fmodulo.Qcontry.SQL.Text;
     try
      ExecSQL;
     except
      showmessage('Problemas con query ['+text+']');
     end;
    end;

aunque valido el texto del Tquery el muestra lo siguiente.

Código SQL [-]
 insert into sap_contrato (
 nocontrato ,
 nombre ,
 paterno ,
 materno ,
 localidad ,
 calle ,
 noext ,
 noint ,
 cp ,
 fecharegistro ,
 telefono ,
 observacio 
 ) values (
 'SAP-C2009111032', 
 'HORACIO', 
 'XOCHITEMOL', 
 'BAUTISTA', 
 'SAN MIGUEL XALTIPAN', 
 'REFORMA', 
 6, 
 6, 
 54090, 
 10/11/2009, 
 '53834328', 
 'INICIO DE CONTRATO')

en el text del tquery la fecha es: 10/11/2009 en la base de datos me inserta 1900-01-01 00:00:00.000

cual creen que sea el problema. espero me puedana yudar