Zamiana tekstu w Listboxie (2xListbox, 1xEdit)

Cześć
Mały problem
2 Listboxy i jeden Edit
Podświetlony Indeks wysyłam do Edit

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  LabeledEdit1.Text  :=  ListBox1.Items[ListBox1.ItemIndex];
end;

to samo mam w Listbox dwa

LabeledEdit2.Text  :=  ListBox2.Items[ListBox2.ItemIndex];

Teraz zmieniam w Edicie wyświetlony tekst z Listboxa
Button Click

procedure TForm1.Button8Click(Sender: TObject);
begin
   ListBox1.Items[ListBox1.ItemIndex] := LabeledEdit1.Text;
end;

Właśnie jak wyżej tak być nie może a dopisanie takiej linii

 ListBox2.Items[ListBox2.ItemIndex] := LabeledEdit1.Text;

nie pomaga

Jak powinien wyglądać kod w takim Buttonie by wiedział w którym Listboxie ma zmienić tekst indeksu.
Indeks mam zaznaczony tylko w jednym Listboxie zaznaczając drugi indeks odznaczam pierwszy i tak w kółko może to pomoże.

musisz gdzieś zapisywać, o który listbox Ci chodzi

Na razie to czarna magia.
Mógłbym dodać drugiego edita i po bólu ale nie tędy droga