Export Excel - Mode omWarn not working

We tried to use the omWarn value of the Options > ExportOverwrite of TTMSFNCGridExcelIO object.
But it does nothing.

We inspected the source code of the TTMSFNCGridExcelIO.XLSExport method, and what we can see is all the source code for this value omWarn is commented !

Is it an oversight ?

thank you for correcting the source code!
on my side I have decommented the source and it works.

Version of TMSFNCGridExcel : 3.24

procedure TTMSFNCGridExcelIO.XLSExport(const FileName: TFileName; const SheetName: UTF16String = ''; const SheetPos: integer = -1; const SelectSheet: integer = 1; const InsertInSheet: TInsertInSheet = InsertInSheet_Clear);
begin
if CurrentGrid = nil then
raise Exception.Create(sTMSFNCGridExcelIOErrNoGrid);
case Options.ExportOverwrite of
omNever:
begin
//if FileExists(FileName) then
// Exit;
ExportWorkBook(FileName, SheetName, SheetPos, SelectSheet, InsertInSheet);
end;
omAlways:
begin
if FileExists(FileName) then
DeleteFile(FileName);
ExportWorkBook(FileName, SheetName, SheetPos, SelectSheet, InsertInSheet);
end;
omWarn:
begin
if FileExists(FileName) then
begin
// {$IF COMPILERVERSION >= 31}
// TDialogService.MessageDialog(Format(Options.ExportOverwriteMessage,[FileName]), TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes,TMsgDlgBtn.mbNo], TMsgDlgBtn.mbYES, 0,
// procedure (const AModalResult: TModalResult)
// begin
// if AModalResult = mrOk then
// begin
// {$ELSE}
// if MessageDlg(Format(Options.ExportOverwriteMessage,[FileName]), TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes,TMsgDlgBtn.mbNo], 0) = mrOk then
// begin
// {$ENDIF}
// DeleteFile(FileName);
// ExportWorkBook(FileName, SheetName, SheetPos, SelectSheet, InsertInSheet);
// end
// {$IFDEF DELPHIXE10_LVL}
// end
// );
// {$ENDIF}
end;
end;
end;
end;

Well that's strange. It's unclear why this code is commented. We have corrected this here, the next version will have this fix included. Thanks for reporting!