access violation at address 6F747475. read of address 6F747475.错误！

[de410]

procedure Tietafm.DBEdit1Change(Sender: TObject);
var
taqry1:TadoQuery;
Tmp_Str:String;
begin
Tmp_Str:=' SELECT * FROM bmta '+' WHERE trim(TA001)=trim("'+dbedit1.Text+'")';
with taqry1 do
begin
taqry1.Close;
taqry1.SQL.Clear;
taqry1.SQL.Add(Tmp_Str);
taqry1.Open;
end;
if not taqry1.IsEmpty then
begin
taqry1.Free;
Application.MessageBox('对不起，产品编号不能重复', '添加数据错误', MB_OK);
DBEdit1.Clear;
tatable.Refresh;
tatable.Append;
Abort;
end
else
//Continue
end;

用意是当dbedit1中内容与数据库中的内容如果重复，则在dbedit1发生变化时，提示数据重复，但是当我编译程序时，老出现如题所示的错误！！郁闷中。。。

[长沙三毛]

1）taqry1是局部对象，需要创建对象：taqry1 := TADOQuery.Create(Application);
2）taqry1需要一个ADOConnection连接，或建立自己的连接

[Corn1]

照这个错误提示的意思，是你在调用一个已经被释放了的对象。
如果如2楼所说，是由于未创建就使用对象，就不是这个错误地址，而应该是全0

程序改成：

procedure Tietafm.DBEdit1Change(Sender: TObject); 
var 
  taqry1:TadoQuery; 
  Tmp_Str:String; 
begin 
  Tmp_Str:=' SELECT *  FROM  bmta WHERE  trim(TA001)=''' + trim(dbedit1.Text) + ''''; //原来的SQL语句也有问题
  taqry1 := TADOQuery.Create(nil);
  try
    taqry1.Connection := ADOConnection1.Connection;
    with taqry1 do 
    begin 
      Close; 
      SQL.Clear; 
      SQL.Add(Tmp_Str); 
      Open; 
      if not IsEmpty then 
      begin 
        Application.MessageBox('对不起，产品编号不能重复',  '添加数据错误',  MB_OK); 
        DBEdit1.Clear; 
        tatable.Refresh; 
        tatable.Append; 
      end;
    end;
  finally
    taqry1.Free;
  end;
end; 

[de410]

谢谢各位的解答~~

[yinxd6112]

同楼上的
你的这种错误属于未创建对象就使用对象的。

这个地方也有问题
if not taqry1.IsEmpty then
begin
taqry1.Free; //未创建就释放对象