아래와 같이 DB에서 읽은 자료를 Listview에 넣을려구 합니다. Ownerdata를 True로해서요..
그런데, 아래처럼하면 제일 마지막 자료만 Listview에 들어갑니다. 모두 Listview에 넣으려면 어떻게 해야되는지 고수님의 조언을 부탁드립니다.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, advlistv, Db, ZQuery, ZMySqlQuery, ZConnect,
  ZMySqlCon, ZTransact, ZMySqlTr;

type
  TForm1 = class(TForm)
    ListView: TAdvListView;
    Button1: TButton;
    ZMySqlTransact1: TZMySqlTransact;
    ZMySqlDatabase1: TZMySqlDatabase;
    Query: TZMySqlQuery;
    procedure Button1Click(Sender: TObject);
    procedure ListViewData(Sender: TObject; Item: TListItem);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  Item: TListItem;
begin
  Query.Open;
  if Query.RecordCount > 0 then
    Listview.Items.Count := Query.RecordCount;
end;

procedure TForm1.ListViewData(Sender: TObject; Item: TListItem);
begin
  if Query.Active then
  begin
    while not Query.Eof do
    begin
      Item.Caption := Query.FieldByName('fserial').AsString;
      Query.Next;
    end;
  end;
end;

end.