anchor.diff:        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;
  
positive.code: var
    str: TStringList;
    root: string;
    i: integer;
  begin
    if fProj = nil then exit;
    //
    str := TStringList.Create;
    try
  
negative.code:     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
  