Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID

PESQUISAR DICA:

ADO - VERIFICAR VERSAO

implementation
uses ComObj;
{$R *.DFM}

function GetADOVer: String;
var
  ADO: Variant;
begin
  try
    ADO := CreateOLEObject('adodb.connection');
    Result := ADO.Version;
    ADO := Null;
  except
    Result := 'ADO não encontrado!';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Format('Versão do ADO %s', [GetADOVer]));
end;