아래와 같이 너무 간단합니다. ^^;;

Uses
  Bde;

function BDEInstalled : boolean;
begin
   Result := ( dbiInit( nil ) = 0 );
end;