请问！高手看过来！谢谢！

代码如下procedure TForm1.setlistview();
var i,n:integer;
begin
  with cds_zwagent do begin
       Close();
       CommandText := 'SELECT * FROM xxx";
       try
         Open();
       except
         exit;
       end;
       if RecordCount > 0 then begin
          n:=RecordCount-1;
          idx := 0;
          ListView1.Items.Clear;
          for i:=0 to n do begin
              with ListView1 do begin
                   Items.Add();
                   Items[i].Caption := FieldByName('CONTRACT_ID').AsString;
                   Items[i].SubItems.Add(FieldByName('ZW_ZJR').AsString);
                    //........................
              end;
              Next();
          end;
       end;
  end;
end;