Wieso öffnet mein Prg die DB nicht

[wschrabi]

Hallo
vielleicht paßt es hier nicht ganz rein, doch ich weiß nicht weiter:

Also ich habe 3 PCS:
1) PC mit WIN 10 mit f-Secure auf dem ich Entwickle und da Lauft das PRG gut.
2) PC mit F-Secure und WIN 11 da funktioniert es auch
3) PC mit WIN 11 mit Defender (auch als Admin) doch da macht er die DB nicht auf.

auf PC 3) wird nicht die Routine hier angesprungen, weil kein Msg Window aufpoppt.

Delphi-Quellcode:

procedure TDM.ConnBeforeConnect(Sender: TObject);
var
   dbfilename: string;
begin
  dbfilename:=ExtractFilepath(Application.ExeName)+ 'dbSample.db';
  {$IF DEFINED (ANDROID)}
    dbfilename := TPath.GetDocumentsPath + PathDelim + 'dbSample.db';
  {$ENDIF}
  if not(FIleexists(dbfilename)) then
    begin
    ShowMessage(Format('Could not find DB filename: %s',[dbfilename]));
    end
  else
    begin
    ShowMessage(Format('DB filename: %s',[dbfilename]));
    Conn.Params.Values['Database'] := dbfilename; //ExtractFilepath(Application.ExeName)+ 'dbSample.db';
    end;  
  

end;

Woran kann das liegen? Ich denke am Defender, doch wo schaltet man darin eine AUSNAHME zum NICHT-BLOCKEN.
DANKE