Excel и SaveDialog не работает!

[kta87]

Пытаюсь сохранять Excel файл через SaveDialog, для чего беру функцию

function TForm1.GetExcelSaveAs: String;
begin
   Result:= ExtractFilePath(Application.ExeName) + SaveDialog1.FileName;
  if LowerCase(ExtractFileExt(Result)) <> EXCEL_FILE_EXT then
     Result := Result + EXCEL_FILE_EXT;
end;

затем использую ее так

procedure TForm1.N6Click(Sender: TObject);
 var
  ExcelApp, Sheet: variant;
  Col, Row: Word;
begin
 if SaveDialog1.Execute then
  begin
   ExcelApp:= CreateOleObject('Excel.Application');
   try
    ExcelApp.Visible:= False;
    ExcelApp.Workbooks.Add;
    Sheet:= ExcelApp.ActiveWorkBook.WorkSheets[1];
    for Col:= 0 to StringGrid1.ColCount -1 do
     for Row:= 0 to StringGrid1.RowCount -1 do
      Sheet.Cells[Row + 1, Col +1]:= StringGrid1.Cells[Col, Row];
    ExcelApp.ActiveWorkbook.SaveAs(GetExcelSaveAs);
   finally
    ExcelApp.Application.Quit;
    ExcelApp:= Unassigned;
    Sheet:= Unassigned;
   end;
  end;
 ShowMessage('Проект успешно сохранен!');
end;

Проект вылетает с ошибкой: "Доступ к файлу не возможен. Проверьте следующее:
-имеется ли указанная папка;
-папка, содержащая этот файл, доступна для записи;
-в имени файла не содержаться знаки:< > ? [ ] : | или *;
-полный путь к файлу не превышает 218 знаков. "
После чего появляется диалог самого Excel и уже через него предлагается сохранить файл с именем "Книга1"
Подскажите решение этой проблемы?

[kta87]

Этот вопрос решен! Тему можно и закрыть!