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

implementation

    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

end.