[marcoszorrilla]

Prueba con esto:

Uses  Registry;

// Function sets the "LOCAL SHARE" registry setting
// to TRUE in the BDE (32-bit BDE only).
procedure UpdateLocalShare;
var
  Reg : TRegistry;
const
  BDE_LOCAL_SHARE_KEY = '\Software\Borland\Database Engine\Settings\SYSTEM\INIT';
begin
  Reg := TRegistry.Create;
  With Reg Do
    begin
      Access := KEY_READ or KEY_WRITE;
      RootKey := HKEY_LOCAL_MACHINE;

      { Write the BDE keys }
      OpenKey(BDE_LOCAL_SHARE_KEY, True);
      WriteString('LOCAL SHARE', 'TRUE');
    end;
  Reg.Free;
end;

Un Saludo.