o que ta errado nesta funcao

eu consigo verse a data é valida ou nao mas ele nao ta salvando os dados help-me.


procedure Tfrmlanckmdetalhe.btnsalvarClick(Sender: TObject);
begin

if dm.ADOTbkmdetalhe.State in [dsedit,dsinsert] then
begin
try
StrToDate(dbEdit1.Text);
except
on EConvertError do
showMessage (´O campo de Data Esta vazio!´);
else
DM.ADOTbkmdetalhechave_km.Value:=dm.ADOTbkmchave_km.Value;
dm.ADOTbkmdetalhe.Post;
end;
end;
end;