用多线程查询数据库，关闭窗体时出现错误：在异步运行时，操作不能被执行(200分)

程序中一窗体使用线程查询数据库，
运行到一半，我终止了该线程，但是关闭窗体时出现错误：在异步运行时，操作不能被执行。
有人知道是什么原因吗？
代码如下：
1.启动线程
procedure TForm1.Button1Click(Sender: TObject);
begin
myThread1:=TThread1.Create(false);
while (myThread1.isfinish=false)do
begin
progressbar1.Position:= progressbar1.Position+1;
if progressbar1.Position=100 then
progressbar1.Position:=0;
Application.ProcessMessages;
end ;
end;

2.线程处理时的代码：
procedure TThread1.Execute;
begin

Coinitialize(nil);
Process;
CoUninitialize();
end;

procedure TThread1.process;
begin
isfinish:=false;
form1.ADOQuery1.Close;
form1.ADOQuery1.SQL.Clear;
sql:='代码太长，省略';
form1.ADOQuery1.SQL.Add(sql);
form1.ADOQuery1.Open;
form1.edit1.text:='查询到'+inttostr(form1.ADOQuery1.RecordCount)+'条记录!';
isfinish:=true;
end;

3.终止线程的代码
procedure TForm1.Button12Click(Sender: TObject);
begin
if assigned(myThread1) then
begin
ADOQuery1.Close;
myThread1.suspend;
myThread1.isfinish:=true;
myThread1.terminate;
progressbar1.Position:=0;
end;

end;

4.窗体退出时的代码
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ADOConnection1.Close;
application.Terminate;
end;

这也叫多线程么？
线程完全用的是form1的资源 而且还没有同步
建议先好好补补oo和线程的概念

诶，delphi已经丢掉好多年了，请各位指教啊，帮我解答这是什么原因造成

数据库可能发生死锁了

不是，线程被我停掉了，但是不知道为何关闭主窗体的时候会报错

你的子线程使用了主线程的资源 但是没有同步

老大，如何解决，请指教

我不知道你具体情况，代码很乱！~
可我写释放线程的代码一般都是这样：
myThread1.terminate;
myThread1.WaitFor；//很重要
myThread1.free;

没办法啊，我还在用delphi6.0呢[]，大学时候学的编程语言。
来自：ball_cao, 时间：2008-9-18 9:11:51, ID：3921852
你的子线程使用了主线程的资源 但是没有同步
这个如何解决

你可以使用 Synchronize(process);
不过process，不能带参数·！~
还有，事件，信号量，等等可以进行同步

程序死掉了，用了myThread1.WaitFor和Synchronize(process);

那你程序那里就有问题，仔细看看！~

你给我个范例程序吧

谁来解决我的问题

列举一下你程序里的问题
首先，线程应该有自己的连接和query 而不是使用form1里的对象。这是oo的基本概念问题
其次，像form1.edit1.text:='查询到'+inttostr(form1.ADOQuery1.RecordCount)+'条记录!';这样的代码是需要同步的，不同步多半会出错，这是线程间通信的问题。
再次，myThread1.terminate;这样的句子只是设置了线程的状态，并不是在外面终止了线程，这是线程工作的概念问题
最后，form1.ADOQuery1.RecordCount这样的代码是非常低效率的，这不能算是错误但至少不能算是正确。
msn:ball_cao@hotmail.com

在线程里面type
mythead=Class(TThread)
private
Ado:TAdoquery;
Form: TForm1;
isfinish:boolean;
protected
Procedure process;
procedure Execute;
override;
public
constructor Create(Sender:TForm1) ;
end;
执行时直接调用过来，用同步Synchronize方式

在线程里动态建CONNECTION，就OK了。

一个ADOConnection在同一时刻只能进行一个操作，所以要使用多线程，就必须建立另一个(或一些)ADOConnection供线程使用，避免同一时使用同一个ADOConnection，这也是一些软件需要使用“连接池”的原因。