Код:
{Задаем цвет поля}
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;
Вот так выглядит процедура увеличения размера клеток.
Вот еще скрины самого поля, до и после:
