窗体关闭不了。总是出错！

Question

procedure TfrmInput.BtnAddClick(Sender: TObject);
begin
  if SaveAll then
    begin
  if MessageDlg('数据保存成功!是否还有其它产品入库？',mtConfirmation,  [mbYes,mbNo],0)=mrYes then
       begin
        edP_name.Text:='';
        edP_mode.Text:='';
        Ed_bm.Text:='';
        EdP_Unit.Text:='';
        EdP_mode.Enabled:=true;
        EdP_name.Enabled:=true;
        EdP_Unit.Enabled:=true;
      end
     else
       begin
        timer1.Enabled:=false;
        frmInput.close;
       end;Access violation at address 00470249 in module 'PrTongtao.exe'. Read of address 000002F4 
  end;
end;

Answer 1

Access violation at address 00470249 in module 'PrTongtao.exe'. Read of address 000002F4地址冲突，你要执行的是00470249，而内存里提供的是 000002F4，这类问题大都是资源没有释放或提前释放，你设置断点检查问题的地方，如果检查不出来，应该检查数据连接是否切断，才能安全退出！

Answer 2

edP_name.Text:='';
        edP_mode.Text:='';
        Ed_bm.Text:='';
        EdP_Unit.Text:='';
        EdP_mode.Enabled:=true;
        EdP_name.Enabled:=true;
        EdP_Unit.Enabled:=true;
当Enabled的时候，Text属性可以赋值吗？
我也不知道，问一下。

Answer 3

内存释放错误,看看对象的owner和他们的释放方式有没有冲突