Suche Hilfe bei Bewegung einer Form

[abi9]

Hallo, bin ein Delphi-Anfänger und ich soll für die Schule das Spiel Snake programmieren. Ich möchte vorerst den Kopf bewegen lassen. Ich kann den Kopf zeichen lassen und auch der Debugger läuft, aber ich kann ihn nicht bewegen. Wo liegt der Fehler?

mTSchlange ist der Kopf und der Schwanz in einem, wird jedoch nicht gezeichnet

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, mTHintergrund, mTSchlange, mTFutter, mTKopf;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    {TiGameEngine: TTimer;}
    procedure FormCreate(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TiGameEngineTimer (Sender: TObject);

  private
    { Private-Deklarationen }
    Hintergrund : THintergrund;
    Links,Rechts,Hoch,Runter : Boolean;
    Kopf : TKopf;
  public
    { Public-Deklarationen }
    Schlange : TSchlange;
    Futter : TFutter;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Hintergrund:= THintergrund.create(Image1);
Hintergrund.zeichnen();

Schlange:= TSchlange.create(250,300,Image1,Futter);

Kopf:= TKopf.create(250,300,Image1,Futter);
Kopf.zeichnen();
Kopf.bewege_links();
Kopf.bewege_rechts();
Kopf.bewege_oben();
Kopf.bewege_unten();
end;

procedure TForm1.TiGameEngineTimer (Sender: TObject);
   begin
     IF (Links = True) and (Kopf.GetZXPosition > 0) Then
       begin
         Kopf.bewege_links();
       end;
     IF (Rechts = True) and (Kopf.GetZXPosition < 649) Then
       begin
         Kopf.bewege_rechts();
       end;
     IF (Hoch = True) and (Kopf.GetZYPosition > 0) Then
       begin
         Kopf.bewege_oben();
       end;
     IF (Runter = True) and (Kopf.GetZYPosition < 481) Then
       begin
         Kopf.bewege_unten();
       end;
    end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF (Key = VK_LEFT ) Then
    begin
       Links := True;
    end;
  IF (Key = VK_Right ) Then
    begin
       Rechts := True;
    end;
  IF (Key = VK_Up ) Then
    begin
       Hoch := True;
    end;
  IF (Key = VK_Down ) Then
    begin
       Runter := True;
    end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF (Key = VK_Left ) Then
    begin
       Links := False;
    end;
  IF (Key = VK_Right ) Then
    begin
       Rechts := False;
    end;
  IF (Key = VK_Up ) Then
    begin
       Hoch := False;
    end;
  IF (Key = VK_Down ) Then
    begin
       Runter := False;
    end;
end;
end.