Pascal Scripting: RemoveBackslashUnlessRoot

Prototype:

function RemoveBackslashUnlessRoot(const S: String): String;

Description:

Returns the specified string with any trailing slashes/backslashes removed, unless the string specifies the root directory of a drive (e.g. "C:\" or "\"), in which case it leaves 1 slash.