多线程保存数据表数据问题，在线急等，高手进

如题：
  数据表table1，其关键字字段为ID1，用线程向里面添加记录,线程exe方法为：procedure mythread.Execute;
var
  adods:TADODataSet;
begin
  { Place thread code here }
  try
    adods:=TADODataSet.Create(nil);
    adods.Connection:=Form1.ADOConn;
    adods.Close;adods.CommandText:='select * from table1';
    adods.Open;
    adods.Append;
    adods.FieldByName('abc').AsString:='aaa';
    adods.Post;    
  finally
    FreeAndNil(adods);
  end;
end;然后开线程，接下来就会报错，什么原因啊，报错内容是尚未调用CoInitialize