Проверяем установлена ли BDE

uses
 Bde; 
  
function
 BDEInstalled: Boolean; 
begin
 
  Result := (dbiInit(nil
) = 0) 
end
; 

procedure
 TForm1.Button1Click(Sender: TObject); 
begin
 
  if
 BDEInstalled then
 
    ShowMessage('BDE is installed.') 
  else
 
    ShowMessage('BDE is not installed.') 
end
;

Другое по теме:

• BDE32 приложения в ptp-сети
• Архитектура BDE и его особенности при работе с SQL-серверами 1
• Архитектура BDE и его особенности при работе с SQL-серверами