Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как узнать версию ADO?

01.01.2007
{ 
 
With different versions of MDAC available it is sometimes
  useful to know that your application won
't fail because a user
  hasn'
t got the latest version installed.
 
The following function returns the ADO version installed,
  you need to place
ComObj in the uses clause to use this function.
}
 
function GetADOVersion: Double;
var
  ADO
: OLEVariant;
begin
 
try
    ADO    
:= CreateOLEObject('adodb.connection');
   
Result := StrToFloat(ADO.Version);
    ADO    
:= Null;
 
except
   
Result := 0.0;
 
end;
end;
 
// To use this function try something like:
 
procedure TForm1
.Button1Click(Sender: TObject);
const
 
ADOVersionNeeded = 2.5;
begin
 
if GetADOVersion then
   
ShowMessage('Need to install MDAC version 2.7')
 
else
   
ShowMessage(Format('ADO Version %n, is OK', [GetADOVersion]));
end;

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php


function TfrmMain.GetADOVersion: Double;
var
  ADO
: OLEVariant;
begin
 
try
    ADO
:= CreateOLEObject('adodb.connection');
   
Result := StrToFloat(ADO.Version);
    ADO
:= Null;
 
except
   
Result := 0.0;
 
end;
end;

Взято с https://delphiworld.narod.ru