zugriffsverletzung bei TStrings

[glkgereon]

hi
ich hab ne procedure geschrieben
immer beim ersten mal, wenn ich auf einen (lokalen) TStrings zugreife, gibts einen zugriffsfehler

warum?

Delphi-Quellcode:

procedure TForm_Main.faecher_bereitschaft_save(Sender: TObject);
var
i, z:integer;
data:TStrings;
Begin
//data.Create;
//data.Clear;
//data.LoadFromFile('dummy.dat');

for i:=1 to 100 do
        Begin
        data.Add(inttostr(bereitschaft[i]));
        end;
data.SaveToFile('bereitschaft.dat');

data.Clear;

for i:=1 to 100 do
        Begin
        For z:=1 to 10 do
                Begin
                data.Add(inttostr(faecher[i, z]));
                End;
        End;
data.SaveToFile('faecher.dat');

//data.Destroy;
End;

wie amn sieht hab ich schon so einiges probiert, und es wieder auskommentiert, da es nit funzte...