Procedure PadVar(StIn:String;Var StOut:String;Count:Byte);

    Adds Count spaces at the end (right) of the string.

    FormatVar is a better procedure to use.

    Example

    PadVar('',StOut,10) = StOut:='          ';