insere registro em branco....

Quando tento inserir a mesma ´escola´ mas com o campo ´DATA´ diferente,
ele apenas insere mais uma escola mas com o campo DATA am branco...mesmo tendo
preenchido ele....

o que esta errado..???
(PS- vou dar uma bica nisso tudo e voltar pra roça.....)


[]´s junior
grato...

if tbSeries.findkey([dblookupcombobox1.keyvalue])= true
and (TbSeries.FieldByname(´Mes´).Value <> StrToDate(MaskEdit1.text))
then
Begin
tbseries.Append;
TbSeriesMes.value:=StrtoDate(maskedit1.text);
TbSeries.post;
DbLookUpComboBox1.enabled:=false;
GroupBox1.enabled:=false;
MaskEdit1.enabled:=false;
DbEdit1.Enabled:=false;
DbEdit2.Enabled:=false;
DbEdit3.Enabled:=false;
DbEdit4.Enabled:=false;
DbEdit5.Enabled:=false;
DbEdit6.Enabled:=false;
DbEdit7.Enabled:=false;
DbEdit8.Enabled:=false;
DbEdit9.Enabled:=false;
DbEdit10.Enabled:=false;
DbEdit11.Enabled:=false;
DbEdit12.Enabled:=false;
DbEdit13.Enabled:=false;
DbEdit14.Enabled:=false;
DbEdit15.Enabled:=false;
end
else
Begin
TbSeries.Edit;
end;
end;