Заработало!!! Остались вопросы по поводу рисования клеток путем перебора (For..do). Никак не получается правильно рисовать.
Вот нарисовал я сетку:
Код:
for i:byte:= 1 to 20 do
for k:byte:= 1 to 20 do
Rectangle(i*20,k*20,20,20);
А как в данном случае добавить зазор между ячейками?
Спасибо.