Delphi three-tier connection pool