Rotate Delphi QuickReport 3.0 90 degrees

Need to rotate a Quick Report - which in fact is a small label - 90 degrees Code below: type TBarLineType = (white, black, black_half); {for internal use only} TformCodigoBarras07 = class(TForm) QuickRep: TQuickRep; QRBandTitulo: TQRBand; QRLabelClienteProduto: TQRLabel; QRLabelNumeroSerie: TQRLabel; QRLabelDataTriagem: TQRLabel; QRImage: TQRImage; Barcode1D_Code128: TBarcode1D_Code128; private { Private declarations } public { Public declarations } procedure pEtiquetaTesteCB( lsClienteProduto, lsNumeroSerie, lsDataTriagem : string ); end; var formCodigoBarras07 : TformCodigoBarras07; implementation {$R *.DFM} procedure [login to view URL]( lsClienteProduto, lsNumeroSerie, lsDataTriagem : string ); begin [login to view URL] := lsClienteProduto; [login to view URL] := lsNumeroSerie; [login to view URL]; [login to view URL] := lsNumeroSerie; [login to view URL] := lsDataTriagem; [login to view URL]; end;