Zugriffsverletzung - warum?

[Super_Chemiker]

na hoppla!
so gehörts wirklich:

Delphi-Quellcode:

//...
case funktionen.ItemIndex of
  0: begin
       a := luafile.IndexOf('function Mission_InitMerchants()');
       for y := 0 to 6 do
       begin
         i := y+2;
         a := luafile.IndexOf('function Mission_InitMerchants()');
         if handel[i].handelt then
         begin
           luafile.Insert(a+1,'   local PlayerID = '+inttostr(i));
           luafile.Insert(a+2,'   local traderId = Logic.GetStoreHouse('+inttostr(i)+')');
           if handel[i].hg1 <> 35 then
           begin
             x := Ware(handel[i].hg1);
             luafile.Insert(a+3,'AddOffer( traderId, '+inttostr(handel[i].hg1m)+', '+x+' )');
           end;
         end;
       end;
     end;
  end;
//...

geht aber immernoch nicht...