[RayOfLight]

Код:

{Задаем цвет поля}
Field.Canvas.Brush.Color := fieldcolor;
{Очищаем его}
Field.Canvas.FillRect(Canvas.ClipRect);

{Увеличиваем размер клетки поля}
inc(size,2);

{Растягиваем TImage} 
Field.Width := (n1+2)*size;
Field.Height := (n2+2)*size;
Field.Repaint;

{Рисуем прямоугольники (клетки)}
Field.Canvas.Pen.Color := Form2.Panel4.Color;
for i:=0 to (n1-2) do begin
for j:=0 to (n2-2) do begin
  Field.Canvas.Rectangle(i*size, j*size, i*size+size, j*size+size);
end;
end;

Вот так выглядит процедура увеличения размера клеток.
Вот еще скрины самого поля, до и после: