InputQuery

[Ultimator]

Also, der in der LB ausgewählte Wert kommt erstmal in eine Variable.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var ausgew, alt: string;
begin
  ausgew := ListBox1.Items.Strings[ListBox1.ItemIndex];
  alt := ausgew;
  if InputQuery('Überschrift', 'Bitte neuen Text eingeben', ausgew)
  then if
  ausgew<>alt then
    ListBox1.Items.Strings[ListBox1.Items.IndexOf(alt)] := ausgew;
end;

Habs getestet, funktioniert