anchor.diff:    dec(TextsCount);
     ListBox1.Items.Delete(ListBox1.ItemIndex);
     ListBox1.ItemIndex := max(0,ID-2);
  +  ListBox1Click(Listbox1); //Force select the new item
   end;
   
   procedure TForm1.btnInsertSeparatorClick(Sender: TObject);
  
positive.code: end;
  
  procedure TForm1.EditConstNameChange(Sender: TObject);
  var i:integer; ID:string;
  begin
    if IgnoreChanges then exit;
    i := ListBox1.ItemIndex+1;
    Texts[i].ConstName := EditConstName.Text;
    if Texts[i].ID = -1 then
      ID := '' else ID := IntToStr(Texts[i].ID)+': ';
    ListBox1.Items[ListBox1.ItemIndex] := ID+Texts[i].ConstName;
  end;
  
  
  procedure TForm1.MemoChange(Sender: TObject);
  var i,t:integer;
  begin
    i := ListBox1.ItemIndex+1;
    t := TMemo(Sender).Tag;
    Texts[i].Translations[t] := {$IFDEF FPC}Utf8ToAnsi{$ENDIF}(TMemo(Sender).Text);
  end;
  
negative.code:   ID := ListBox1.ItemIndex+1;
    EditConstName.Text := Texts[ID].ConstName;
    LastSelected := ID-1;
    for i:=1 to TranslationCount do
      if Texts[ID].ID <> -1 then
        TransMemos[i].Text := {$IFDEF FPC}AnsiToUTF8{$ENDIF}(Texts[ID].Translations[i])
      else
        TransMemos[i].Text := '';
    IgnoreChanges := false;
  end;
  
  procedure TForm1.btnReorderListClick(Sender: TObject);
  