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，望高手指教

LV1.Items.Clear;
      First;
      while  NOT Eof do

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

以上的代码运行没有问题，我用的数据库是SQL SERVER 2000

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;
       SQL.Text:='Select sysobjects.name,User_name(Uid) as owner,Xtype from Sysobjects  where Xtype=''U'' or Xtype=''S''  ';
       Open;
       First;//默认指向最后一条记录（Eof），需要使它指向第一条记录
       LV1.Items.Clear;
       while not Eof do
         begin
             ITEM1 := lv1.items.add;
             item1.Caption := fieldByName('name').Value;    //循环不执行
             ITEM1.SubItems.add(fieldByName('owner').Value); //循环不执行
             Next;
         end;
    end