在Delphi中引用Excel,怎样设置工作表中Column的数据格式？

procedure TForm1.Button1Click(Sender: TObject);
var
 WorkBook,Sheet1:variant;
 i,j:integer;
 Excel:Variant;
begin   //转换为EXCEL表格数据
 Excel:=CreateOleObject('Excel.Application');
 Excel.Visible:=true;
 Excel.DisplayAlerts:=false;
 Excel.SheetsInNewWorkbook := 1;
 WorkBook:=Excel.Workbooks.Add;
 Sheet1:=WorkBook.WorkSheets[1];
 Sheet1.Name:='汇总数据';
 ...
end;
我在Delphi6中通过以上代码把数据导出到Excel中，但是有时在数据的类型方面好像会存在一点问题。因为Excel好像自动把一些数据形式的字符串当成是数字来处理，如'0123',导出时是数字123，所以我想在程序中强制地把某一栏设置成某一类型，如文本，在程序中应该怎样去写呢，多谢指教！