Exception Fehler beim neuem Zeichnen

[baumina]

Delphi-Quellcode:

procedure TForm1.Darstellen;
var
 I,j : Integer;
begin
   FGrafik.Canvas.Pen.Color := clBlack; //Weißes Feld zeichnen
   FGrafik.Canvas.Brush.Color := clWhite;
   FGrafik.Canvas.Rectangle(0,0,FGrafik.Width, FGrafik.Height);

   GitterZeichnen(FSpielfeldBreite, FSpielfeldHoehe, FFelderBreite); //Gitter erstellen & auf der Paintbox zeichnen
   pbxAnzeigeflaeche.Canvas.Draw(0,0,FGrafik);

   for I := 0 to FSpielfeldBreite - 1 do
    Begin
       FGrafik.Canvas.Draw(FLinks + i* FFelderbreite+1,
       FUnten - (j+1) * FFelderbreite + 1, FSpielerBmp[FSpielfeld[i,j]]);
    end;

end;

Die lokale Variable j wird nicht initialisiert.