Zugriffsverletzung - warum?

[Super_Chemiker]

Hi, DP:
In menem Projekt bekomme ich immer wenn ich diesen Button klicke eine Zugriffsverletzung, und ich verstehe einfach nicht warum .
kann mir einer sagen was da falsch ist? wenn ihr mehr code braucht dann sagt mir was genau, ich will ja kein OS - Projekt machen

Delphi-Quellcode:

procedure TForm1.FunktionClick(Sender: TObject);
var i, a: integer;
    x: string;
begin
  case funktionen.ItemIndex of
  0: begin
       a := luafile.IndexOf('function Mission_InitMerchants()');
       for i := 0 to 6 do
       begin
         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;
end;

function TForm1.Ware;
begin
  case index of
    // Alle möglichen Zahlen werden erkannt... für euch nicht weiter wichtig -> Platz sparen
  else
  result := '';
  end;
end;

Vielen Dank im Voraus,
Flo