🚀 go-pugleaf

I detected a memory leak using ADOConnection and as DataSource an 
invalid IP.

I�m uisng a connection to watch the status of a DB - rasing when it 
comes online or offline. If the DB is online the memory is well but if
the source is offline, not reachable or invalid the memory is 
increasing. 

This simple source show the effect.
The first runs are very slow and are using the timeout before Open( ( 
returns. Later on ( after 5 - 30 runs ) the Open( )-call returns 
immediatly in 99,9%. 

I'm using BCB5, SP1, ADOExpress and Update for ADO


void __fastcall openThread::Execute()
{
	HRESULT _hr;
	_hr = CoInitializeEx( 0, COINIT_MULTITHREADED );
	......

	 ADOConnection1 = new TADOConnection( 0 );
	 ADOConnection1->ConnectionString = "Provider=SQLOLEDB.1;Persist 
Security Info=True;User ID=sa;Initial Catalog=CoFS_Online;Data Source=
127.0.0.1";
	 ADOConnection1->LoginPrompt = false;

	int error = 0;
	while( ! Terminated ) {
			try {
			ADOConnection1->Connected;
			ADOConnection1->Close( );
			ADOConnection1->Open( );
		}
		catch(...) {
			 error++;
			_error( this );
		}
		_done( this );

	}
	delete ADOConnection1;
	ADOConnection1 = 0;

	if( _hr == S_OK )
		CoUninitialize( );

}