Den samme procedure to gange = fejl?

Jeg har to procedures, der ser sådan her ud:

procedure TForm2.SpeedButton1Click(Sender: TObject);
var
sl : tstringlist;
strs : tstrings;

begin
listbox1.Items.Add(edit1.Text);
sl := tstringlist.Create;

try
sl.LoadFromFile('Addresses.txt');
strs := ListBox1.Items;
strs.SaveToFile('Addresses.txt');

Finally
sl.free;
strs.Free;


procedure TForm2.SpeedButton2Click(Sender: TObject);
var
sl : tstringlist;
strs : Tstrings;

begin
listbox1.Items.delete(listbox1.ItemIndex);
sl := tstringlist.Create;

try
sl.LoadFromFile('Addresses.txt');
strs := ListBox1.Items;
strs.SaveToFile('Addresses.txt');

Finally
sl.free;
strs.Free;


Den første er til, at lægge det jeg skriver i Edit1 (EditText) ind i ListBox1 (ListBox).
Den anden er til, at fjerne den valgte linje fra ListBox1.

Begge procedures virker fint, men lige så snart jeg har brugt én af dem bare én gang, vil det ikke virke mere. Er der nogen, der ved hvorfor?

På forhånd tak, MM