with TRegistry.create do begin
 Rootkey := HKEY_LOCAL_MACHINE;
 OpenKey('SOFTWARE\BORLAND\DATABASE ENGINE', false);
 CFGFile := ReadString('CONFIGFILE01');
 Free;
end;