[Thrasher]

Код:

for I:=0 to StringGrig.RowCount-1 do
  for J:=0 to StringFrid.ColCount-1 do
    StringGrid.Cell[J,I]:='';