获取 BDE 版本

program BDEVersion;

uses
  Forms,
  DB,
  BDE,
  Dialogs,
  SysUtils;

{$R *.RES}

var
  ThisVersion : SYSVersion;
begin
  DbiGetSysVersion(ThisVersion);
  ShowMessage('BORLAND DATABASE ENGINE VERSION = ' + IntToStr(ThisVersion.iVersion));
end;