anchor.diff:    Result:= AppCommandCategory(Cmd) in [categ_Normal, categ_Plugin, categ_PluginSub];
   end;
   
  -procedure InitBasicCommandLineOptions(out ANewInstance: boolean);
  +procedure InitBasicCommandLineOptions(var ANewInstance: boolean; var AServerId: string);
   var
     S: string;
     i: integer;
   begin
  -  ANewInstance:= false;
     for i:= 1 to ParamCount do
     begin
       S:= ParamStr(i);
  +
       if S='-n' then
  +    begin
         ANewInstance:= true;
  +      Continue;
  +    end;
  +
  +    if SBeginsWith(S, '-id=') then
  +    begin
  +      Delete(S, 1, Length('-id='));
  +      if S<>'' then
  +        AServerId:= S;
  +      Continue;
  +    end;
     end;
   end;
   
  
positive.code:   AppBookmarkImagelist: TImageList = nil;
    AppApiFlatTheme: TATFlatTheme;
    AppAlwaysNewInstance: boolean = false;
  
  var
    AppFrameList1: TFPList; //all frames - for main thread
  
negative.code: var
    AppActiveForm: TObject = nil;
  
  type
    TAppHistoryElement = (
      ahhText,
  