关于数据输入问题

我想将数据输入数据表中，程序如下；
procedure Tusemesfrm.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
if edit7.Text<>edit8.Text then
  showmessage('两次密码输入不一致');
begin
with mindatamodule.adoqrycustlist do
begin
open;
edit;
  AppendRecord([edit1.Text,edit2.Text,edit3.Text,edit4.Text,sort,maskedit1.Text,maskedit2.Text,nil,edit7.Text,nil,nil,edit8.text,edit9.Text,edit10.Text]);
  post;
   end;
end;
end;
但是在数据输入时，总是反馈‘数据表不在编辑或插入状态（dataset not edit or insert mode)’但是数据还输入了，只是反馈这样的界面问题提示。不知问题出现在那里，是什么原因，本入刚学，不吝赐教。