Snake - meine Kreation

[Bummi]

wegen der Bilddatei

Delphi-Quellcode:

    case map[i, j] of
        .....  
       -1: if CheckBox_Futterbild.Checked then
              Apple.Picture.LoadFromFile(OpenDialog.FileName)

Du willst das Bild wirklich beim Zeichnen jedes Mappoints neu laden?
setze hier einfach nur die Farbe.
Da wo Du zeichnest fehlt die Unterscheidung
  if CheckBox_Futterbild.Checked and Assigned(Apple.Picture.Graphic) then tja und da fehlt dann das Malen...

von Vorteil wäre auch:

Delphi-Quellcode:

  if OpenDialog.Execute then
     Apple.Picture.LoadFromFile(OpenDialog.FileName);

und ein Dialog der es nicht zulässt alles Möglich zu laden.