procedure TForm1.lv1Data(Sender: TObject; Item: TListItem);
var
  str:string;
  s:Tstrings;
  i:integer;
  j:integer;
  Item1:TListItem;
begin
   with qry1 do
   begin
      Close;
      SQL.Clear;
      Close;
      SQL.Text:='Select sysobjects.name,User_name(Uid) as owner,Xtype from Sysobjects  where Xtype=''U'' or Xtype=''S''  ';
           Open;
      LV1.Items.Clear;
      while  NOT Eof do
        begin
            ITEM1:=lv1.items.add;
            item1.Caption:=fieldByName('name').Value;    //循环不执行
            ITEM1.SubItems.add(fieldByName('owner').Value); //循环不执行
                 Qry1.Next;
        end;
   end

以上代码错在哪个地方，我注释处没执行，程序最后错误是无法定位之类的，才入手Delphi，望高手指教

谢谢啊，我试了下还是不行，顺便问下FIRST起什么作用？错误消息还是“未指定的错误”，接下来就又弹出错误“对象被打开”，程序指向的断点在OPEN 代码处。我写的代码有什么错误没有啊，谢谢！