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

    This is the reverse procedure of PadVar.   All spaces on the right of
    the string are removed.

    Example

    UnPadVarRight('  ABC  ',StOut) = StOut:='  ABC';