数据库怎么出错了

Question

 ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select * from po where title=:title');
  ADOQuery2.Parameters.ParamByName('title').Value := edit4.Text;
  ADOQuery2.Open;
  if ADOQuery2.RecordCount >= 1 then
  begin    showmessage('標題已經存在，請換標題！');
    ADOQuery2.Close;
  end
  else
  begin
    ADOQuery2.Close;
    ADOQuery1.append;
    ADOQuery1.fieldByName('game').asstring := daqu.Text;
    ADOQuery1.fieldByName('game1').asstring := xiaoqu.Text;
    ADOQuery1.fieldByName('prices').asstring := edit5.Text;
    ADOQuery1.fieldByName('memo1').asstring := memo1.Text;
    ADOQuery1.fieldByName('credit').asstring := SpinEdit1.Text;
    ADOQuery1.fieldByName('kind').asstring := combobox1.Text;
    ADOQuery1.fieldByName('TITLE').asstring := edit4.Text;
    if (checkbox1.Checked = true) then
    begin
      ADOQuery1.fieldByName('bool').asstring := '★';
    end
    else
    begin
      ADOQuery1.fieldByName('bool').asstring := '☆';
    end;
    ADOQuery1.post;
end;
为什么这代码扫执行了，不但没有加入到数据库中，还把daqu.Text;xiaoqu.Text;edit5.Text;memo1.Text;给清空了，我都没写清空这个控件的代码啊!

Answer 1

begin 
    ADOQuery2.Close; 
    ADOQuery1.append; //这里的问题
    ADOQuery1.fieldByName('game').asstring := daqu.Text;