用线程检测数据库的连接问题(50分)

本人想用一个线程来检测数据库连接是否成功，如下代码在一个按钮中执行没有问题，在线程中IDE执行时报"尚未调用CoIniTialize"错，直接运行.exe没有任何错误。
var MyTestADO:TADOConnection;
begin
try
MyTestADO:=TADOConnection.Create(nil);
MyTestADO.Close;
MyTestADO.ConnectionString:=Edit1.Text;//存放连接字符串
MyTestADO.LoginPrompt:=False;
MyTestADO.Open;
finally
if MyTestADO.Connected then
ShowMessage('连接数据库成功！');
MyTestADO.Free;
end;
end;
欢迎讨论，有助于问题的解决同样有分。

线程中的com libary没有初始化
uses activex
var MyTestADO:TADOConnection;
begin
try
activex.CoInitialize(nil);
MyTestADO:=TADOConnection.Create(nil);
MyTestADO.Close;
MyTestADO.ConnectionString:=Edit1.Text;//存放连接字符串
MyTestADO.LoginPrompt:=False;
MyTestADO.Open;
finally
if MyTestADO.Connected then
ShowMessage('连接数据库成功！');
MyTestADO.Free;
activex.CoUninitialize;
end;
end;

高手就是不同，问题已经解决。。