Nach ExpandUNCFileName wird sein Netzwerktest immer mit True antworten, weil der Pfad dann definitiv mit \\ beginnen wird.
Na als Erstes solltest du mal nachsehn was
GetDriveType für als Typ nennt.
Und ich wette ich kenn den eigentlichen Fehler, aber daran bist du selber Schuld, weil du ignorierst, was dir dein Compiler sagt und das sogar Mehrmals
Zitat:
AnsiString, PChar und Delphi 10.2 Tokyo Professional
PS:
Result := boolean(Pos('\\', Pfad));
->
Result := StartsStr(Pfad, '\\');