Delphi如何把stringgrid中的数据清空?

for i:=1 to stringgrid.rowcount do

for j:=1 to stringgrid.colcount do

stringgrid.cells[j-1,i-1]:='';