RTFPaperHeight example for Delphi

{ This example loads a RTF file, with a custom top margin, bottom margin, left margin, right margin, paper width, and paper height }

procedure TForm1.Button3Click(Sender: TObject);
begin
   { Change margin values }
   LEADImage1.RTFTopMarg:= 0.9;
   LEADImage1.RTFBottomMarg:= 0.9;
   LEADImage1.RTFLeftMarg:= 1.3;
   LEADImage1.RTFRightMarg:= 1.3;

   LEADImage1.RTFPaperWidth:= 8.25;
   LEADImage1.RTFPaperHeight:= 11.5;

   { Now load the RTF file }
   LEADImage1.Load( 'c:\image1.rtf', 0, 1, 1 );
end;