problemas con dato fecha

[elgauchopablo]

hola gracias por responder ahi te paso las lineas con las q cargo los datos.

Código Delphi [-]
procedure TFcarga.BgrabarClick(Sender: TObject);
begin
  with DB.Tafiliados do
  begin
    Active := true;
    Db.Tafiliados.Insert;
    CachedUpdates := true;
    db.Tafiliados.fieldByname('apeynombre').AsString := Eapeynom.Text;
    db.Tafiliados.fieldByname('fn').AsDateTime := dtpfn.Date;
    db.Tafiliados.fieldByname('nacionalidad').AsString := Enacion.Text;
    db.Tafiliados.fieldByname('estadocivil').AsString :=Cestadocivil.Text;
    db.Tafiliados.fieldByname('dni').AsInteger :=StrToint(Edni.Text);
    db.Tafiliados.fieldByname('establecimiento').AsString:= Eestableci.Text;
    db.Tafiliados.fieldByname('categoria').AsString := Csiprosa.Text;
    db.Tafiliados.fieldByname('leg').AsInteger :=StrToInt(Elegajo.Text);
    db.Tafiliados.fieldByname('profesion').AsString:= Eprofesion.Text;
    db.Tafiliados.fieldByname('situacionderevista').AsString:= Crevista.Text;
    db.Tafiliados.fieldByname('domicilio').AsString:= Edomicilio.Text;
    db.Tafiliados.fieldByname('telefono').AsInteger:= StrToInt(Etelf.Text);
    db.Tafiliados.fieldByname('email').AsString:= EEmail.Text;
    db.Tafiliados.fieldByname('fechaalta').AsDateTime:=DateFalta.Date  ;
    db.Tafiliados.post;
    ApplyUpdates;
  end;
end;

saludos Pablo