lol ^^ das könnte daranliegen, dass du den eintrag den du mit insert einträgst dannach wieder löschst
MfG - Ghost007
P.S. Änder das mal wie folgt ab
//EDIT:
Delphi-Quellcode:
procedure TForm1.AendernClick(Sender: TObject);
var
tmp:integer;
begin
try
if ListBox1.ItemIndex<>-1 then
begin
tmp:=ListBox1.ItemIndex;
ListBox1.Items.Insert(tmp+1, Name.Text+' | '+Ansprechpartner.Text+' | '+Strasse.Text+' | '+Ort.Text+' | '+Telefon.Text+' | '+Telefax.Text+' | '+Mobil.Text+' | '+EMail.Text);
ListBox1.Items.Delete(tmp);
end
else
ShowMessage ('Es müssen Einträge markiert sein!');
except
ShowMessage ('Falsche Eingaben!');
end;
end;