ListView ListItem und ListColumns Problem

[Hansi]

Hey,

Ich möchte gerne in ein ListView zwei Spaltenbeschriftungen haben (ArtNr und Bezeichnung) und dann mit einer Schleife die Daten aus der DB holen. Jeder Datensatz in eine Zeile. Über ShowMessage weiss ich dass die Daten richtig rausgeholt werden, nur werden Sie nicht richtig angezeigt.

Delphi-Quellcode:

procedure TArtikel.cxButton11Click(Sender: TObject);
var
  x   :Integer;
  AN :Integer;
  BZ  :String;
  Zeile  :TListItem;
  Spalte: TListColumn;
begin
  LV1.Clear;
  ADT_Artikel.First;
  for x:=0 to ADT_Artikel.RecordCount-1 do
  begin
    AN := ADT_Artikel.FieldValues['ArtNr'];
    BZ := ADT_Artikel.FieldValues['Bezeichnung'];
    ShowMessage(''+IntToStr(AN)+' und '+BZ+'');
    Zeile := LV1.Items.Add;
    Zeile.Caption := IntToStr(AN);

    ADT_Artikel.Next;
  end;

end;

Kann mir jemand sagen wie ich meinen Code ergänzen muss damit es funzt?