Pac-Man на Делфи. Движение, управление и обработка препятствий

procedure TFMain.FormCreate(Sender: TObject);
begin
  Direction.X := 1;
  Direction.Y := 0;
  Mouth := 0;
  MoveTimer.Enabled := True;
end;

procedure TFMain.MoveTimerTimer(Sender: TObject);
var
  x, y, p, img: Integer;
  isMove: Boolean;
begin
  img := 0;
  x := Image2.Left + Direction.X;
  y := Image2.Top + Direction.Y;
  isMove := True;
  if Direction.X = 1 then begin
    img := 0;
    if x + Image2.Width < Image1.Width then begin
      for p := y to y + Image2.Height do
        if Image1.Canvas.Pixels[x+Image2.Width,p] <> clBlack then begin
          isMove := False;
          Break;
        end;
    end;
  end;
  if Direction.Y = 1 then begin
    img := 1;
    if y + Image2.Height < Image1.Height then begin
      for p := x to x + Image2.Width do
        if Image1.Canvas.Pixels[p,y+Image2.Height] <> clBlack then begin
          isMove := False;
          Break;
        end;
    end;
  end;
  if Direction.X = -1 then begin
    img := 2;
    if x >= 0 then begin
      for p := y to y + Image2.Height do
        if Image1.Canvas.Pixels[x,p] <> clBlack then begin
          isMove := False;
          Break;
        end;
    end;
  end;
  if Direction.Y = -1 then begin
    img := 3;
    if y >= 0 then begin
      for p := x to x + Image2.Width do
        if Image1.Canvas.Pixels[p,y] <> clBlack then begin
          isMove := False;
          Break;
        end;
    end;
  end;
  if isMove then begin
    if x < -Image2.Width then x := Image1.Width;
    if x > Image1.Width + Image2.Width then x := -Image2.Width;
    if y < -Image2.Height then y := Image1.Height;
    if y > Image1.Height + Image2.Height then y := -Image2.Height;
    Image2.Left := x;
    Image2.Top := y;
  end;
  Inc(Mouth);
  if Mouth = 8 then begin
    Image2.Tag := 1 - Image2.Tag;
    Mouth := 0;
  end;
  with Image2.Canvas do begin
    Brush.Color := clBlack;
    Rectangle(0, 0, Image2.Width, Image2.Height);
  end;
  ImageList1.Draw(Image2.Canvas, 0, 0, img * 2 + Image2.Tag);
end;

procedure TFMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RIGHT: begin
      Direction.X := 1;
      Direction.Y := 0;
    end;
    VK_DOWN: begin
      Direction.X := 0;
      Direction.Y := 1;
    end;
    VK_LEFT: begin
      Direction.X := -1;
      Direction.Y := 0;
    end;
    VK_UP: begin
      Direction.X := 0;
      Direction.Y := -1;
    end;
  end;
end;