1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 edit1.text:=Listbox1.Items[ListBox1.ItemIndex];
end;

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

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.ListBox1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
  var
    i: Integer;
begin
  i := ListBox1.ItemAtPos(MousePos,TRUE); // rausfinden, wohin geklickt wurde
  if (i > -1) then begin // ist ein (gültiges) Item
    ListBox1.ItemIndex := i; // dann Markierung verschieben
    ListBox1Click(Sender); // ggfs. Aktionen beim (normalen) Anklicken nachholen (wg. Änderung der Markierung)
  end
  else
    i := ListBox1.ItemIndex; // sonst bleibt das aktuelle Item markiert
  // hier könnten mit dem Item i noch Aktionen laufen
  Handled := FALSE; // Kontextmenü aufrufen, Aktion noch nicht beendet
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Bearbeiten1Click(Sender: TObject);
  var
    Eingabe: String;
begin
  Eingabe := ListBox1.Items.Strings[ListBox1.ItemIndex];
  if InputQuery('Eintrag bearbeiten','Neuer Text: ',Eingabe) then
    ListBox1.Items.Strings[ListBox1.ItemIndex] := Eingabe;
end;