DelphiProjekt - Erstellen eines Adressbuches

[Kleine]

Ich hab jetzt eine procedure 'EintragAendern' hinzugefügt, die so aussieht

Delphi-Quellcode:

procedure TFormAdresse.EintragAendern;
var
 i: Integer;
begin
     for i :=0 to KontaktListBox.Items.Count -1 do
       begin
            if KontaktListBox.Selected[i] then
            Adresse.Kontakte.Insert(i,adresse.Kontakte);
            //KontaktListBox.insert(i,Kontakte);
       end;

end;

es funktioniert natürlich nicht. hat jemand ne idee wie man das machen könnte?