anchor.diff:    tmpFileNames: TStringList;
   begin
     tmpFileNames := TStringList.Create;
  -  { TODO -ograemeg -copen files : Implement ParseAndExpandFilenames }
  -  tmpFileNames.Add(AFileName);
  -//  ParseAndExpandFileNames(FileName, tmpFileNames);
  +  ParseAndExpandFileNames(AFileName, tmpFileNames);
     Result := OpenFiles( tmpFileNames, AWindowTitle, DisplayFirstTopic );
  -  tmpFileNames.Destroy;
  +  tmpFileNames.Free;
   end;
   
   procedure TMainForm.CloseFile(const ADestroying: boolean = False);
  
positive.code: end;
  
  procedure TMainForm.DisplaySelectedSearchResultTopic;
  begin
    //
  end;
  
  procedure TMainForm.EnableControls;
  
negative.code: var
    showtopic: boolean;
  begin
    if ParamCount > 0 then
    begin
      if gCommandLineParams.IsParam('h') then
      begin
        ShowParamHelp;
        Exit;
      end
      else
      begin
        showtopic := not gCommandLineParams.IsParam('s');
  