------------关于DBGRID导成EXCEL表后的字段名问题-----------------

我是用以下代码实现DBGRID导出到EXCEL表功能的，但是发现EXCEL表中的字段名是数据表中的字段名，是英文的，我想转成中文显示可以吗？应该怎么改这段程序呢？望高手指点。谢谢啦~~~~~~~procedure   TForm1.Button1Click(Sender:   TObject);   
  var   
      MSExcel:Variant;   
      i,j:integer;   
  begin   
      SaveDialog1.Filter:='*.XLS|*.XLS';   
      SaveDialog1.DefaultExt:='XLS';   
      if   SaveDialog1.Execute   then   
      begin   
          MsExcel:=createOLEobject('excel.application');   
          MsExcel.workBooks.add;   
          Msexcel.visible:=false;   
          with   DataSource1.Dataset     do   
          begin   
              first;   
              for   i:=0   to   fieldcount-1   do   
              begin   
                  Msexcel.cells[1,i+1].value:=fields[i].DisplayLabel   ;   
              end;   
              j:=2;   
              while   not   eof   do   
              begin   
                  for   i:=0   to   fieldcount-1   do   
                  begin   
                      Msexcel.cells[j,i+1].numberformat:='@';   
                      Msexcel.cells[j,i+1].value:=fields[i].AsString   ;   
                  end;   
                  inc(j);   
                  next;   
              end;   
          end;   
          MSExcel.ActiveWorkBook.SaveAs(SaveDialog1.FileName);   
          MSExcel.ActiveWorkBook.Saved:=True;   
          MSExcel.Quit;   
      end;   
  end;