怎么样将用户在StringGrid表格中输入的数据存放到Excel文件中?在线等候，谢谢!!

var i,j:integer;
  xlapp:variant;
   sheet:variant;
begin
     try
      xlapp:=createoleobject('excel.application');
     except
       screen.cursor:=crdefault;
       exit;
     end;
     xlapp.workbooks.add[xlwbatworksheet];
     xlapp.workbooks[1].worksheets[1].name:='lalala';
     sheet:=xlapp.workbooks[1].worksheets['lalala'];
   if   form1.savedialog1.execute then
     begin
        for i:=0 to form1.stringgrid1.rowcount-1 do
            for j:=0 to form1.stringgrid1.colcount-1 do
           begin
                  sheet.Cells[i+1,j]:=form1.stringgrid1.cells[i,j];
           end;
         excelworkbook1.savecopyas(savedialog1.filename);
         excelworkbook1.Close(false);
         excelapplication1.disconnect;
         excelapplication1.quit;
         screen.cursor:=crdefault;
         application.messagebox('成功保存','information',0);
     end;