unit TSUnitConverter;
interface
    function PointsToTwips(value): real;
    function TwipsToPoints(value: real): real;
    function EmusToPoints(value: real): real;
    function HalfPointToPoints(value: real): real;
    function EighthPointToPoints(value: real): real;
    function PercentToNumber(value: real): real;
    function NumberToPercent(value: real): real;

implementation

    function PointsToTwips(value): real;
    begin
        return value * 20;
    end;

    function TwipsToPoints(value: real): real;
    begin
        return value / 20;
    end;

    function EmusToPoints(value: real): real;
    begin
        return value / 12700;
    end;

    function HalfPointToPoints(value: real): real;
    begin
        return value / 2;
    end;

    function PercentToNumber(value: real): real;
    begin
        return value / 100;
    end;

    function NumberToPercent(value: real): real;
    begin
        return value * 100;
    end;

    function EighthPointToPoints(value: real): real;
    begin
        return value / 8;
    end;

end.