Delphi关于Cxgrid导出Excel。身份证号后三位为0

procedure Tfrm_JSZABGK_CX.Button1Click(Sender: TObject);    //导出excel
var SFD: TSaveDialog;
    DateStr, FileName, FileExt: string;     //引入单元Dialogs
begin
    if G_GH_View.DataController.RecordCount = 0 then Exit;
    DateStr := FormatDateTime('yyyy-mm-dd', GHDate0.date) + '至' + FormatDateTime('yyyy-mm-dd', GHDate1.date);
    SFD := TSaveDialog.Create(nil);
    SFD.Filter := 'Excel文件 (*.xls)|*.xls|XML文件 (*.xml)|*.xml|文本文件 (*.txt)|*.txt|网页文件 (*.html)|*.html';
    SFD.Title := '导出为';
    sfd.FileName := '导出excel_' + DateStr;
    SFD.DefaultExt := '.XLS';
    SFD.Options := [ofOverwritePrompt, ofEnableSizing];

    if not SFD.Execute then exit;
    FileName := SFD.FileName;
    FileExt := UpperCase(ExtractFileExt(FileName));

    if FileExt = '.XLS' then    //导出xls格式

     //   ExportGrid4ToExcel(FileName, G_GH, True, True,False)  加了false  导出excel的时候身份证号不会折叠起来，后三位不会为0
        ExportGrid4ToExcel(FileName, G_GH, True, True)  //这个格式导出excel，身份证号会折叠起来，同时后三位为0
    else if FileExt = '.XML' then  //导出XML格式
        ExportGrid4ToXML(FileName, G_GH, True, True)
    else if FileExt = '.TXT' then   //导出TXT格式
        ExportGrid4ToText(FileName, G_GH, True, True)
    else if FileExt = '.HTML' then   //导出HTML格式
        ExportGrid4ToHTML(FileName, G_GH, True, True)
    else begin
        MessageBox(Self.Handle, '不支持格式！', '系统提示', 0);
    end;

    SFD.Free;

end;