Удаление записи из базы и фото из папки

procedure TShowExponatFrm.DeleteCurrentImage;
var
  ImagePath: string;
begin
  if (ImagePaths.Count > 0) and (CurrentImageIndex >= 0) and (CurrentImageIndex < ImagePaths.Count) then
  begin
    ImagePath := ImagePaths[CurrentImageIndex];
 
    if MessageDlg('Суретті өшіруді қалайсыз ба?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
      try
        GlavFrm.ADOCommand1.CommandText := 'DELETE FROM Images WHERE Photo_Path = :Image_Path';
        GlavFrm.ADOCommand1.Parameters.ParamByName('Image_Path').Value := ImagePath;
        GlavFrm.ADOCommand1.Execute;
 
        if FileExists(ImagePath) then
          DeleteFile(ImagePath);
 
        LoadImagesForExponat;
 
        if ImagePaths.Count = 0 then
          Panel6.Caption := 'Сурет табылмады';
 
        // Добавляем сообщение после успешного удаления изображения
        ShowMessage('Сурет өшірілді.');
      except
        on E: Exception do
          ShowMessage('Қате: ' + E.Message);
      end;
    end;
  end;
end;

GlavFrm.AdoQuery3.Filter := 'ExponatId = ' + IntToStr(ExponatId);
    GlavFrm.AdoQuery3.Filtered := True;
 
    // Удаляем все связанные записи из таблицы Images
    GlavFrm.AdoQuery3.First;
    while not GlavFrm.AdoQuery3.Eof do
    begin
      GlavFrm.AdoQuery3.Delete;
    end;
 
    // Снимаем фильтр и удаляем запись из таблицы Exponat
    GlavFrm.AdoQuery3.Filtered := False;
    GlavFrm.AdoQuery1.Delete;

GlavFrm.AdoQuery3.SQL.Text := 'DELETE * FROM Images WHERE Images.exponatid=' + IntToStr(ExponatId);
GlavFrm.AdoQuery3.ExecSQL;

procedure TShowExponatFrm.BitBtn1Click(Sender: TObject);
var
  SaveDialog: TSaveDialog;
begin
  SaveDialog := TSaveDialog.Create(Self);
  try
    SaveDialog.Title := 'Сохранить файл как';
    SaveDialog.Filter := 'Файлы Excel (*.xlsx)|*.xlsx|Все файлы (*.*)|*.*';
    SaveDialog.DefaultExt := 'xlsx';
 
    if SaveDialog.Execute then
    begin
      ExportToExcel(CustomColumnHeaders, GlavFrm.ADOQuery1, SaveDialog.FileName);
      ShowMessage('Файл сәтті сақталды.');
    end;
  finally
    SaveDialog.Free;
  end;
end;

procedure ExportToExcel(const CustomColumnHeaders: array of string; ADOQuery: TADOQuery; const FileName: string);
var
  ExcelApp: TExcelApplication;
  ExcelWorkbook: _Workbook;
  ExcelWorksheet: _Worksheet;
  HeaderRange: OleVariant;
  FieldIndex, RowIndex: Integer;
begin
  ExcelApp := TExcelApplication.Create(nil);
  ExcelApp.Connect;
  ExcelApp.Visible[LOCALE_USER_DEFAULT] := True;
 
  ExcelWorkbook := ExcelApp.Workbooks.Add(EmptyParam, LOCALE_USER_DEFAULT);
  ExcelWorksheet := ExcelWorkbook.Sheets[1] as _Worksheet;
 
  for FieldIndex := Low(CustomColumnHeaders) to High(CustomColumnHeaders) do
  begin
    ExcelWorksheet.Cells.Item[1, FieldIndex + 1].Value := CustomColumnHeaders[FieldIndex];
    HeaderRange := ExcelWorksheet.Cells.Item[1, FieldIndex + 1];
    HeaderRange.Font.Bold := True;
  end;
 
  RowIndex := 2;
  ADOQuery.First;
  while not ADOQuery.Eof do
  begin
    for FieldIndex := 0 to ADOQuery.FieldCount - 1 do
    begin
      if not VarIsNull(ADOQuery.Fields[FieldIndex].Value) then
        ExcelWorksheet.Cells.Item[RowIndex, FieldIndex + 1].Value :=
          VarToStr(ADOQuery.Fields[FieldIndex].Value)
      else
        ExcelWorksheet.Cells.Item[RowIndex, FieldIndex + 1].Value := OleVariant('');
    end;
    Inc(RowIndex);
    ADOQuery.Next;
  end;
 
  ExcelWorkbook.SaveAs(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
    xlNoChange, EmptyParam, EmptyParam, EmptyParam, EmptyParam, LOCALE_USER_DEFAULT);
 
  ExcelApp.Disconnect;
  ExcelApp.Free;
end;