Проблемма такая не освобождается один дескриптор помогите :(
program s1;

{$APPTYPE CONSOLE}

uses
SysUtils,
ADODB,
ActiveX,
Classes,windows;


type
ms = class(TThread)
private
protected
aq1:TADOQuery;
error:boolean;
procedure Execute; override;
public
destructor Destroy;override;

end;

destructor ms.destroy;
begin
CoUnInitialize
aq1.free;
inherited destroy;
end;


procedure ms.Execute;
begin
CoInitialize(nil);
error:=false;
aq1:=TADOQuery.Create(nil);
aq1.ConnectionString:='driver={SQL Server}; server=serv; Database =master;Password=123;User ID=sa;';
aq1.CommandTimeout:=15;
aq1.Close;
aq1.SQL.Clear;
aq1.sql.Text:='use tempdb select * from dbo.syscolumns';
try
aq1.open;
except
error:=true;
end;
if error=true then
begin
end;
freeonterminate:=true;
end;

var fl:boolean;
begin
fl:=true;
repeat
ms.Create(false);
sleep(100000);
until fl=false;
end.