anchor.diff:    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;
  -  if Texts[ID].ID <> -1 then
  -    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 := '';
   end;
   
   procedure TForm1.btnReorderListClick(Sender: TObject);
  
positive.code:   dec(TextsCount);
    ListBox1.Items.Delete(ListBox1.ItemIndex);
    ListBox1.ItemIndex := max(0,ID-2);
  end;
  
  procedure TForm1.btnInsertSeparatorClick(Sender: TObject);
  
negative.code: 
    ListBox1.Items.Insert(ID-1, '');
    ListBox1.ItemIndex := ListBox1.ItemIndex+1;
    ListBox1Click(Listbox1); //Force select the new item
  end;
  
  procedure TForm1.btnMoveUpClick(Sender: TObject);
  