Alguien Me Puede Ayudar

[bothy]

tengo este codigo



bd.Active :=true;
bd.Append ;//insertar los registros en la tabla
bd.FieldByName('Clave cliente').AsString :=edit1.Text ;
bd.FieldByName('nombre').AsString :=edit2.Text ;
bd.FieldByName('appaterno').AsString :=edit3.Text ;
bd.FieldByName('apmaterno').AsString :=edit4.Text ;
bd.FieldByName('domicilio').AsString :=edit5.Text ;
bd.FieldByName('fecha de nacimiento').DataSize :=strtodate(edit6.Text);
bd.Post ;


y en la linea "bd.FieldByName('fecha de nacimiento').DataSize :=strtodate(edit6.Text);"

me marca el error yo se Que no es asi La sixtasis de la linea Alguien me podria decir como es.. quiero guardar la fecha en una BD en acces
nomas que me atore en esa linea...