После сохранения в файл *.xls при открытии этого файла выдается предупреждение. Как от этого избавиться?

[A-IX-2]

Текст предупреждения: "Действительный формат открываемого файла (Результат.xls) отличается от указываемого его расширением имени файла. Перед открытием данного файла убедитесь, что он не поврежден и получен из надежного источника. Открыть файл сейчас?" ( да нет справка)
При нажатии на кнопку Да файл открывается нормально, но хотелось бы, чтобы этого предупреждения не было. Думаю, при сохранении нужно что-то добавить/убрать.
Вот так сохраняю в .xls:

procedure TForm1.N3Click(Sender: TObject);
var
  Excel, WorkBook, Sheet:variant;
  i, j: integer;
  FName: string;
begin
  if SaveDialog1.Execute then FName := SaveDialog1.FileName
  else Exit;
  Excel:=CreateOleObject('Excel.Application');
  Excel.DisplayAlerts:=False;
  Excel.Visible:= False;
  Workbook:=Excel.Workbooks.Add;
  Workbook.SaveAs(FName);
  Sheet:= Workbook.ActiveSheet;
  for i:= 0 to StringGrid1.RowCount - 1 do
  begin
    for j:= 0 to StringGrid1.ColCount - 1 do
    begin
      If i=0 then Sheet.Cells[i+1, j+1]:=StringGrid1.Cells[j, i]
      else
      Sheet.Cells[i+1, j+1]:=StrToFloat(StringGrid1.Cells[j, i]);
    end;
  end;
  Workbook.Save;
  Workbook.Close;
  Excel.Quit;
  Excel:= UnAssigned;
end;

[malor]

Начиналось все в Delphi XE так:
ExcelApp := CreateOleObject('Excel.Application' );
и сохранялось в xls-файл.

Открываю в MS Office 2007 -


Как это обойти?

WinXP SP3

2. Не оффтопить. Оффтопом считается создание темы, не соответствующей названию раздела, вопрос или пост не по теме, или попытка перевода темы в русло другого вопроса.
Также к оффтопу приравнивается размещение своих личных вопросов в чужой теме, пусть даже и подходящей по смыслу. Есть вопрос - создайте свою тему.
И запомните - на форуме действуют правила "Одна тема - один вопрос", "Одна тема - один автор".
Сюда же относится и кросспостинг - размещение нескольких экземпляров своей "драгоценной" темы.

За оффтоп нарушитель получит нарушение №1.