Vérifier la validité d'un nom de fichier

function IsValidFileName(Filename : string;IsLong : boolean) : boolean;
const
ShortForbiddenChars :
set of char=[';','=','+','<','>','|','"','[',']',' ','',#39];

LongForbiddenChars : set of char=['<','>','|','"',''];
var
i : integer;
begin
result := true;
if IsLong then
for i := 1 to length(Filename) do
result := result and not(Filename[i] in LongForbiddenChars)
else
for i := 1 to length(Filename) do
result := result and not(Filename[i] in ShortForbiddenChars);
end;