function BDEInstalled:Boolean
var
reg:TRegistry;
s:string;
begin
Result :=False;
reg :=TRegistry.Create;
reg.Rootkey :=HKEY_LOCAL_MACHINE;
reg.Openkey('Software\Borland\Database Engine',False);
s:='';
try
s:=reg.ReadString('CONFIGFILE01');
if s<>'' then
Result :=True;
finally
reg.Closekey;
end;
end;
