Fehler "Privilegierte Anweisung"/Zugriffsverletzung

[Samufi]

Hallo,
ich weiß, dass es schon viele andere Beiträge zu dem Thema gibt, ich habe sie aber leider nicht auf mein Problem anwenden können. Es wurde geschrieben, dass das Problem z.B. dann auftritt, wenn eine Variable benutzt wird, die vorher nicht deklariert wurde oder wenn das Programm eine ihm nicht erlaubte Sache ausführt. Beides trifft meines Wissens nicht auf meine Prozedur zu...

Delphi-Quellcode:

var I, Anzahl,Temp:Integer; MEdit:TEdit;
begin
Anzahl:=0;
for I := 0 to ListboxInhalt.Count - 1 do
  begin
    if ListBoxInhalt.Selected[I]=true then
      begin
        Temp:=Anzahl+1;
        Anzahl:=Temp;
        MEdit:=TEdit.Create(HauptUnit.Form1);
        MEdit.Visible:=false;
        MEdit.Name:='MarkiertEdit'+InttoStr(Anzahl);
        MEdit.Parent:=HauptUnit.Form1;
        MEdit.Text:=InttoStr(I);
        MEdit.free; 
      end;
  end;
for I := 1 to Anzahl do
  begin
    Temp:=StrtoInt(TEdit('MarkiertEdit'+InttoStr(I)).text);
    ListboxInhalt.Items[Temp]:=HauptUnit.Form1.Inhalt.Text;
    ListboxCode.Items[Temp]:=HauptUnit.Form1.Code.Text;
   end;
Temp:=StrtoInt(TEdit('MarkiertEdit'+InttoStr(Anzahl)).text);
if ListboxInhalt.Count-1>Temp then ListboxInhalt.selected[Temp+1]:=true else NeueZeile.Click;
for I := 1 to Anzahl do
  begin
    TEdit('MarkiertEdit'+InttoStr(I)).free;
  end;
end;

Vielleicht seht ihr ja den Fehler, danke aber schon fürs Suchen!
Treuergebenst,
Samufi