Source position: StyleUn.pas line 346
procedure ConvVertMargins(
const VM: ThtVMarginArray;
var CD: ThtConvData;
var M: ThtMarginArray;
PixelsPerInch: Integer
);