请教一个多线程的问题！

Question

这段代码，怎么用多线程写？
uses DB, ADODB;procedure TForm1.ExecuteSQL;
var
  
begin
  ADOQuery1 := ADOQuery1.Create(ADOQuery1);
  ADOQuery1.ConnectionString := '';
  try
    ADOQuery1.Close;
    ADOQuery1.SQL.Text := 'create table aaa';
    ADOQuery1.ExecSQL;
  finally 
    ADOQuery1.Free;
  end;
end;

Answer 1

你想做什么？
多线程的话，继承TTHEAD类，实现它的EXECUTE方法就是了

Answer 2

很简单，继承TThread类，在其Execute方法中实现你那段代码。在窗体中建立一个线程，执行即可。