anchor.diff:      root := commonFolder(str);
       root := ExtractFileDir(root);
       if root = '' then
  +    begin
  +      dlgOkInfo('the static library can not be registered because its sources files has not a common folder');
         exit;
  +    end;
       //
       with List.Items.Add do
       begin
  
positive.code: var
    str: TStringList;
    root: string;
    i: integer;
  begin
    if fProj = nil then exit;
    //
    str := TStringList.Create;
    try
  
negative.code:       else
          SubItems.add(fProj.outputFilename);
        SubItems.add(root);
        if not FileExists(SubItems[0]) then
          dlgOkInfo('the library file does not exist, maybe the project not been already compiled ?');
        Selected:= true;
      end;
      SetFocus;
  