zugriffsverletzung

[hedie]

Hallo

Ich erhalte bei diesem Code eine zugriffsverletzung jedoch nur dann wen er das zweite mal ausgeführt wurde

Meinermeinung nach stimmt alles

Delphi-Quellcode:

procedure TForm2.Image10Click(Sender: TObject);
var
i:integer;
sln,sli:tstringlist;
begin
i := listboxm1.ItemIndex;
sln := tstringlist.Create;
sli := tstringlist.Create;
////////Listboxen säubern :D/////
listboxm2.Items.Delete(i);
listboxm1.Items.Delete(i);
////////////////////////////////
i := 0;
///tempc beinhaltet die vorherige anzahl an items also eins mehr als jetzt vorhanden sind :D
repeat
sln.Add(listboxm1.Items.Item[i].Caption);
sli.Add(listboxm1.Items.Item[i].SubItems.Strings[0]);
i := i + 1;
until i = (tempc - 1);
sln.Free;
sli.Free;
end;

listboxm1 ist ein tlistview
listboxm2 it eine Listbox


grüsse
Claudio

Wegen fragen bezüglich dem RadStudio 2007, ist nur ne Testversion für 14 Tage