Zugriffsverletzung beim hinzufügen von Listview einträgen

[Gehstock]

Delphi-Quellcode:

procedure TForm4.ComboBox1Change(Sender: TObject);
var
i: Integer;
s: String;
l: TListItem;
begin
{case ComboBox1.ItemIndex of
 0: s:= 'DE';
 1: s:= 'AUT';
 2: s:= 'SUI';
 3: s:= 'HUN';
end;  }
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select * from DA42';
ADOQuery1.Open;
     While Not ADOQuery1.Eof do
     begin
        with ListView1.Items.Add do begin
                     l.Caption := ADOQuery1.FieldByName('Artikel').asString;
                     l.SubItems.Add(ADOQuery1.FieldValues['Preis']);
        end;
        ADOQuery1.Next;
     end;
end;

was mach ich falsch