Делаю игру крестики на 19х19

[Rin]

Cell[n,n] объекта StringGrid имеет тип string. Поэтому каждый элемент нужно приравнять к пустой строке. Чтобы понять, что такое пустая строка и как она выглядит, взгляни на уже изложенное мной выше сравнение. Вот оно:

if (stringgrid1.Cells[ACol,ARow]<>'') then

[Serge_Bliznykov]

Кнопка "Очистить грид" (btClearStringGrid)

procedure TForm3.btClearStringGridClick(Sender: TObject);
var i:integer;
begin
  for I := 0 to StringGrid1.RowCount - 1 do
    StringGrid1.Rows[i].Clear;
end;