function ThiConvertorEx.Forward(const S: string): string;
var
  L: Integer;
begin
  L := Length(S);
  if L < _prop_Digits then
    Result := StringOfChar(_prop_SymbolFill[1], _prop_Digits - L) + S
  else
    Result := S;
end;

function ThiConvertorEx.Reverse(const S: string): string;
var
  L: Integer;
begin
  L := Length(S);
  if L < _prop_Digits then
    Result := S + StringOfChar(_prop_SymbolFill[1], _prop_Digits - L)
  else
    Result := S;
end;