[Filen]

Здравствуйте уважаемые.
Проблема такая...

Создаю книгу exel (экспорт из БД) , далее сохраняю с заданным именем ..

Код:

 const
Fnn= 'Test';
XLApp.WorkBooks[1].SaveAs(ExtractFilePath(Application.ExeName)+Fnn);

в нужный момент открываю книгу на другой форме в oleconteiner..
OleContainer1.CreateObjectFromFile(ExtractFilePath(Application.ExeName)+Fnn,False);
OleContainer1.DoVerb(ovShow);

затем при закрытии формы удаляю созданный файл ..

procedure TForm23.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin

If  FileExists(ExtractFilePath(ParamStr(0))+'Test.xlsx') Then Begin

DeleteFile('Test.xlsx');
OleContainer1.Close;
OleContainer1.DestroyObject;

  end;
  end;

все прекрасно работает что и требовалось.

Но иногда нужно сохранить книгу с другим именем делаю так..

procedure TForm23.N3Click(Sender: TObject);
begin
if SaveDialog1.Execute then begin
OleContainer1.OleObject.SaveAs(SaveDialog1.FileName);
 ShowMessage('Отчет сохранён в файл:'#10+SaveDialog1.FileName+'xlsx');
end;
end;

Админ: Пользуемся тегами при оформлении кода!

тоже все нормально сохраняет.

Но теперь код при закрытии формы FormCloseQuery не удаляет первоначально созданный файл Test.xlsx, в чем проблема?
Буду благодарен за потраченое на меня время.