Николай_1988

Всем спасибо, разобрался
procedure UpdateListSubSection;
var
id, Subsection : string;
begin
  F_General.LV_SubSection.BeginUpdate;
  if F_General.LV_SubSection.Items.Count <> 0 then
  F_General.LV_SubSection.Items.Clear;
  While not F_General.Qry.Eof do
   begin
      SubSection := F_General.Qry.FieldByName('N_subsection').AsString;
      FCanUpdate := False;
      LItem := F_General.LV_SubSection.Items.Add;
      LItem.Data['SubSection'] := SubSection;
      FCanUpdate := True;
      F_General.LV_SubSection.Adapter.ResetView(LItem);
      F_General.Qry.Next;
   end;
   F_General.LV_SubSection.EndUpdate;   
   F_General.Qry.Close;
end;