Procedure DelSlash(StIn:String;Var StOut:String);

    Removes the trailing '\' in a directory name if it is not required.

    Note that Pascal does not like directory names like

    \PROGS\MYDIR\

    Pascal expects

    \PROGS\MYDIR

    However, if it is the root directory, such as

    \

    or

    A:\

    then the '\' is required.

    Example

    DelSlash('A:\',StOut) = StOut := 'A:\'

    DelSlash('C:\GAMES\',StOut) = StOut := 'C:\GAMES'