多次创建释放TADOConnection内存之内存泄漏，请达人看看如何解决(100分)

procedure TForm1.Button2Click(Sender: TObject);<br>var<br>&nbsp; ADOConnection2 : TADOConnection;<br>begin<br>// &nbsp;CoInitialize(nil);<br>&nbsp; ADOConnection2 := TADOConnection.Create(self);<br>&nbsp; ADOConnection2.ConnectionString := 'Provider=OraOLEDB.Oracle.1;Password=pacs31;Persist Security Info=True;User ID=pacs31;Data Source=pacs_ydey_test;Extended Properties=""';<br>&nbsp; ADOCOnnection2.Open;<br>&nbsp; ADOConnection2.Destroy;<br>&nbsp; ADOConnection2 := nil;<br>// &nbsp;CoUnInitialize;<br>end;

每点一次Button2 用任务管理器发现每次差不多都会增加两个句柄。

自己明白了 是Oracle9.2.0.1的Provider的问题 连Access就不泄漏 说明代码没有错 哈哈。

来接分[]

接受答案了.