Иероглифы при экспорте данных из таблицы StringGrid в файл

const
CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0);
CXlsEof: array[0..1] of Word = ($0A, 00);
CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
CXlsNumber: array[0..4] of Word = ($203, 14, 0, 0, 0);
CXlsRk: array[0..4] of Word = ($27E, 10, 0, 0, 0);
 
procedure XlsWriteCellRk(XlsStream: TStream; const ACol, ARow: Word;
const AValue: Integer);
var
V: Integer;
begin
CXlsRk[2] := ARow;
CXlsRk[3] := ACol;
XlsStream.WriteBuffer(CXlsRk, SizeOf(CXlsRk));
V := (AValue shl 2) or 2;
XlsStream.WriteBuffer(V, 4);
end;
 
procedure XlsWriteCellNumber(XlsStream: TStream; const ACol, ARow: Word;
const AValue: Double);
begin
CXlsNumber[2] := ARow;
CXlsNumber[3] := ACol;
XlsStream.WriteBuffer(CXlsNumber, SizeOf(CXlsNumber));
XlsStream.WriteBuffer(AValue, 8);
end;
 
procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word;
const AValue: string);
var
L: Word;
begin
L := Length(AValue);
CXlsLabel[1] := 8 + L;
CXlsLabel[2] := ARow;
CXlsLabel[3] := ACol;
CXlsLabel[5] := L;
XlsStream.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel));
XlsStream.WriteBuffer(Pointer(AValue)^, L);
end;
 
function SaveAsExcelFile(AGrid: TStringGrid; AFileName: string): boolean;
const
{$J+}CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0);{$J-}
CXlsEof: array[0..1] of Word = ($0A, 00);
var
FStream: TFileStream;
I, J: integer;
float: extended; num:integer;
begin
Result := False;
FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);
try
CXlsBof[4] := 0;
FStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
for i := 0 to AGrid.ColCount - 1 do
for j := 0 to AGrid.RowCount - 1 do
BEGIN
//проверяем, является ли ячейка целым числом
if TryStrToInt(AGrid.Cells[i,j], num) then
begin
XLSWriteCellNumber(FStream, I, J, (StrToInt(AGrid.cells[i, j])));
end
//проверяем, является ли ячейка дробным числом
else if TryStrToFloat(AGrid.Cells[i,j], float) then
begin
XLSWriteCellNumber(FStream, I, J, (StrToFloat(AGrid.cells[i, j])));
end
else BEGIN XLSWriteCellLabel(FStream, I, J, 
 
WideString(UTF8Decode(AGrid.cells[i, j]))); END;
END;
FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
Result := True;
finally
FStream.Free;
end;
end;

WideString(UTF8Decode(AGrid.cells[i, j])))

function SaveAsExcelFile2(AGrid: TStringGrid; AFileName: string): boolean;
//sfExcel8 - формат файла Excel 97
var
  MyWorkbook: TsWorkbook;
  MyWorksheet: TsWorksheet;
  MyDir: string;
  i,j:integer;
  float: extended; num:integer;
begin
  // Initialization
  MyDir := ExtractFilePath(ParamStr(0));
  // Create the spreadsheet
  MyWorkbook := TsWorkbook.Create;
  MyWorkbook.SetDefaultFont('Times New Roman', 12);
  //try
    MyWorksheet := MyWorkbook.AddWorksheet('My Worksheet');
    //MyWorksheet.WriteUTF8Text(1, 1, AGrid.Cells[0,0]);
    //MyWorksheet.WriteUTF8Text(1, 1, 'Hello World');
    MyWorksheet.WriteNumber(1, 3, 7.8);
 {  For i:=0 to AGrid.ColCount-1 do
    For j:=0 to AGrid.RowCount-1 do
     BEGIN
      //проверяем, является ли ячейка целым числом
      if TryStrToInt(AGrid.Cells[i,j], num) then
         begin
              MyWorksheet.WriteNumber(j, i, StrToInt(AGrid.Cells[i,j]));
         end
         //проверяем, является ли ячейка дробным числом
         else if TryStrToFloat(AGrid.Cells[i,j], float) then
         begin
         MyWorksheet.WriteNumber(j, i, StrToFloat(AGrid.Cells[i,j]));
         end
      else BEGIN MyWorksheet.WriteUTF8Text(j, i, AGrid.Cells[i,j]); END;
      MyWorksheet.WriteFont(j, i, 'Times New Roman', 12, [], AGrid.Font.Color);
      MyWorksheet.WriteColWidth(j, AGrid.colWidths[i]); //ширина столбца
     END;
   MyWorksheet.WriteFont(0, 0, 'Times New Roman', 14, [fssBold], AGrid.Font.Color);
   MyWorksheet.MergeCells(0, 0, 0, AGrid.ColCount-1);
   MyWorksheet.WriteFont(1, 0, 'Times New Roman', 14, [fssBold], AGrid.Font.Color);
   MyWorksheet.MergeCells(1, 0, 1, AGrid.ColCount-1);
   MyWorksheet.WriteFontStyle(0, 0, [fssBold]);
   MyWorksheet.WriteFontStyle(1, 0, [fssBold]);
   Myworksheet.WriteHorAlignment(0, 0, haCenter);
   Myworksheet.WriteHorAlignment(1, 0, haCenter);}
   // Save the spreadsheet to a file
   MyWorkbook.WriteToFile(MyDir + AFileName + STR_EXCEL_EXTENSION, sfExcel8, true);
   //finally
    MyWorkbook.Free;
    Result:=True;
    //end;
end;