RetRecord 함수를 Thread 안에서 계속 사용하다보면 ...메모리가 조금씩 계속 올라갑니다..
왜 그럴까요... ADO 의 버그인지 함수를 잘못 사용하고 있는건지??

다른 구현 가능한 방식있으면 알려주시면 고맙겠습니다.

<!--CodeS-->
function RetRecord(tSql : string;ConnStr : string; RetCnt : integer) : OleVariant;
var
  Rs : _RecordSet;
  cnt : boolean;
begin
  cnt := true;
  result := null;
  CoInitializeEX(NIL, COINIT_APARTMENTTHREADED);
  try
    try
      Rs := CoRecordset.Create;
      try
        Rs.Open(tSql,ConnStr,adOpenDynamic,adLockOptimistic,adCmdText);
        try
           if not (Rs.EOF or Rs.BOF) then
           begin
              case RetCnt of
                1 : Result := Rs.GetRows(-1,EmptyParam,EmptyParam);
                2 : begin
                      cnt := false;
                      Result := Rs;
                    end;
              end;
           end
           else
             result := null;
        finally
           RS.Close;
        end;
      finally
         RS := nil;
      end;
    except
      result := null;
    end;
  finally
    CoUninitialize;
  end;
end;
<!--CodeE-->