function IsRightFileName(const FileName:TFileName):boolean;
var
; I,Len:integer;
begin
; Result:=True;
; Len:=Length(FileName);
; if Len>MAX_PATH then
; ; Result:=False
; else
; ; for I:=1 to Len do
; ; ; if FileName in ['/','/',':','*','?','"','<','>','|',#10,#13] then
; ; ; begin
; ; ; ; Result:=False;
; ; ; ; exit;
; ; ; end;
end;