function ADOInstalled: Boolean;
var
r: TRegistry;
s: string;
begin
r := TRegistry.create;
try
with r do
begin
RootKey := HKEY_CLASSES_ROOT;
OpenKey('/ADODB.Connection/CurVer', false);
s := ReadString('');
if (s = 'ADODB.Connection.2.5') or (s='ADODB.Connection.2.6') then
Result := True
else
Result := False;
CloseKey;
end;
finally
r.free;
end;
end;