[Carlos Arevalo]

Ok. esto fue lo que hice pero me da el siguiente error

Runtime error 216 at 0040340A

//unidad informesfactory

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,QuickRpt;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var xinforme: TQuickRep;
begin
xinforme:=TQuickRep(listbox1.Items.Objects[listbox1.ItemIndex]);
xinforme.print
end;

end.

//unidad informe

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, QRCtrls, ExtCtrls, unit1;

type
  TForm2 = class(TForm)
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    QRBand2: TQRBand;
    QRBand3: TQRBand;
    QRLabel1: TQRLabel;
    QRBand4: TQRBand;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
initialization
 form1.ListBox1.Items.AddObject('QuickRep1', form2.QuickRep1);

end.