anchor.diff:  //Sort the items by TextID
   procedure TForm1.btnSortByIndexClick(Sender: TObject);
   begin
  -  fTextManager.SortByIndex;
  -  RefreshList;
  -  mnuSave.Enabled := True;
  +  try
  +    fTextManager.SortByIndex;
  +    RefreshList;
  +    mnuSave.Enabled := True;
  +  except
  +    on E: Exception do
  +    begin
  +      gLog.AddTime('Error on btnSortByIndexClick: ' + E.Message + sLineBreak + GetStackTrace(10));
  +    end;
  +  end;
   end;
   
   
   //Sort TextIDs by Index
   procedure TForm1.btnSortByNameClick(Sender: TObject);
   begin
  -  fTextManager.SortByName;
  -  //Compact Indexes
  -  RefreshList;
  -  mnuSave.Enabled := True;
  +  try
  +    fTextManager.SortByName;
  +    //Compact Indexes
  +    RefreshList;
  +    mnuSave.Enabled := True;
  +  except
  +    on E: Exception do
  +    begin
  +      gLog.AddTime('Error on btnSortByNameClick: ' + E.Message + sLineBreak + GetStackTrace(10));
  +    end;
  +  end;
   end;
   
   
   procedure TForm1.btnCompactIndexesClick(Sender: TObject);
   begin
  -  fTextManager.CompactIndexes;
  -  RefreshList;
  -  mnuSave.Enabled := True;
  +  try
  +    fTextManager.CompactIndexes;
  +    RefreshList;
  +    mnuSave.Enabled := True;
  +  except
  +    on E: Exception do
  +      gLog.AddTime('Error on btnCompactIndexesClick ' + E.Message + sLineBreak + GetStackTrace(10));
  +
  +  end;
   end;
   
   
   procedure TForm1.FilterChanged(Sender: TObject);
   begin
  -  RefreshFilter;
  -  RefreshList;
  +  try
  +    RefreshFilter;
  +    RefreshList;
  +  except
  +    on E: Exception do
  +    begin
  +      gLog.AddTime('Error on FilterChanged: ' + E.Message + sLineBreak + GetStackTrace(10));
  +    end;
  +  end;
   end;
   
   
  
positive.code: 
  { TForm1 }
  procedure TForm1.FormCreate(Sender: TObject);
  begin
    Caption := 'KaM Remake Translation Manager (' + GAME_REVISION + ')';
  
    fWorkDir := GetWorkDir;
  
    gResLocales := TKMResLocales.Create(fWorkDir + 'data\locales.txt', DEFAULT_LOCALE);
  
    InitLocalesList;
  
  
negative.code: 
  procedure TForm1.btnSaveClick(Sender: TObject);
  begin
    try
      fTextManager.Save;
      mnuSave.Enabled := False;
    except
      on E: Exception do
      begin
        gLog.AddTime('Error on btnSaveClick: ' + E.Message + sLineBreak + GetStackTrace(10));
      end;
    end;
  end;
  
  
  