Tester le nom d'un fichier

const ShortForbiddenChars:
set of Char = [';', '=', '+', '<', '>', '|', '"', '[', ']', ' ', '', #39];
LongForbiddenChars: set of Char = ['<', '>', '|', '"', ''];

...

function TestFileName(FFileName: string; IsLong: Boolean): Boolean;
var
i: Integer;
begin
Result := True;
if IsLong then begin
for i := 1 to Length(FFileName) do begin
Result := Result and not (FFileName[i] in LongForbiddenChars);
end;
end
else begin
for i := 1 to Length(FFileName) do begin
Result := Result and not (FFileName[i] in ShortForbiddenChars);
end;
end;
end;