Tworzenie fizycznie pliku XLS

Path := 'C:\Excel_' + FormatDateTime('HHMMSS', Time) + '.xls';
   CreateFile(PChar(Path),GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);

Ale to nie jest poprawny format pliku excel.... Jak utworzyc go poprawnie, w stanadardzie XLS ?

uses ComOBJ;

procedure TForm1.Button1Click(Sender: TObject);
var
  Excel: Variant;
begin
  Excel := CreateOleObject('Excel.Application'); // Otwarcie nowego Excela
  Excel.WorkBooks.Add(); // Stworzenie skoroszytu
  Excel.Cells[1,1].Value := '11'; // Zapis danej do komórki Excela - liczba
  Excel.Cells[1,2].Value := '''rybka'; // Zapis danej do komórki Excela - string
  Excel.Cells[1,3].Value := '=A1*3'; // Zapis danej do komórki Excela - formuła
  Excel.ActiveWorkbook.SaveAs('c:\test.xls');     //Zapis do pliku - zmień na *.xlsx jeśli masz Excel 2007 lub nowszy...
  Excel.Quit;
end;