ListView og QuickRep

her er koden fra min ListView...

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons, ComCtrls;

type
  TForm3 = class(TForm)
    ListView1: TListView;
    BitBtn1: TBitBtn;
    ADOTable1: TADOTable;
    procedure OnShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}
Function KL : string;
begin
  Form3.ADOTable1.Close;
  Form3.ADOTable1.Active:=True;
  Form3.ADOTable1.First;
  Form3.ListView1.Clear;
  While Not Form3.ADOtable1.Eof do
  begin
    with Form3.ListView1.Items.Add do
    begin
      Caption:=Form3.ADOTable1.FieldByName('titel').asstring; //Kolonne 1
      ImageIndex:=-1;
      Subitems.Add(Form3.ADOTable1.FieldByName('kode').asstring); // Kolonne2
      Subitems.Add(Form3.ADOTable1.FieldByName('indputter').asstring); // Kolonne3
    end;
    Form3.ADOTable1.Next;
  end;
end;


procedure TForm3.OnShow(Sender: TObject);
begin
KL;
end;

end.

Jeg har lavet lidt om så jeg bruger en checkbox i mit ListView nu og det virker nok lidt bedre. Men kan stadigvæk ikke få flyttet det fra mit listview og i min report. kan nogen hjælpe mig med det. her er koden når jeg trykker på min button1 knap

procedure TForm3.Button1Click(Sender: TObject);
Var
Tr : String;
i : Integer;
Begin
    for i := 0 to ListView1.Items.Count-1 do
  begin
  if ListView1.Items[i].Checked = True then
  begin
    ListView1.Items[i].Selected:=true;
    tr:=IntToStr(integer(ListView1.Selected.Data));
    ADOTable1.Locate('id',tr,[]);
    ADOTable1.Locate('titel',tr,[]);
    ADOTable1.Locate('kodegenre',tr,[]);
    ADOTable1.Locate('kode',tr,[]);
    ADOTable1.Locate('indputter',tr,[]);
    Form4.show;
    end;
  end;
end;

Håber virkelig at nogen kan komme med en forklaring og et beskrevet eksempel på hvordan det kan gøres fra et listview

løst