Delphi如何把stringgrid中的数据清空

for   i:=1   to   stringgrid.rowcount   do  
      for   j:=1   to   stringgrid.colcount   do  
          stringgrid.cells[j-1,i-1]:='';