Para saber si el BDE está instalado pon BDE en el Uses de Form y con esta función que no puedo probar a fondo porque tendría que desinstalar mi propio BDE creo te podría servir.
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
nBde:Integer;
begin
Try
nBde:= bde.DBIINTFVER;
ShowMessage('Versión BDE '+IntToStr(bde.DBIINTFVER));
Except
ShowMessage('No está instalado el BDE.');
end;
end;
En las páginas del Club tienes Caerques que es un programa con código fuente para poder hacer un mantenimiento de las tablas, reconstrucción de índices, empaquetado etc.
Un Saludo.