[VenZell]

Доброго времени суток! Помогите, пожалуйста, по такому вопросу:
есть ListBox1 и ListBox2. При нажатии на элемент ListBox1 должен формироваться соответствующий список элементов в ListBox2.
Есть даже код, который не работает, а должен:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

// процедура обновления списка направлений procedure RefreshListNaprav; begin  with Form_Knigi do begin   NapravQuery.Active:=False;   NapravQuery.ParamByName('NAZV_DISCIPLINI').AsInteger:=StrToInt(NapravListBox1.Items[NapravListBox1.ItemIndex]);   NapravQuery.Active:=True;   NapravQuery.First;   case NapravQuery.RecordCount of       0 : begin            NapravListBox.Enabled:=False;            NapravListBox.Clear;            NapravListBox1.Clear;         end;   else    begin            NapravListBox.Enabled:=True;            NapravListBox.Clear;            NapravListBox1.Clear;            while not NapravQuery.Eof do begin             NapravListBox1.Items.Add(NapravQuery.FieldValues['KOD_NAPRAVLENIYA']);             NapravQuery.Next;            end;            NapravListBox.ItemIndex:=0;            NapravListBox1.ItemIndex:=NapravListBox.ItemIndex;            // обновление списка групп направлений            RefreshListDis;           end;   end; end; end;

[VenZell]

{* Метод Refresh возвращает логическую величину, уведомляющую о том, ч
то в то время, пока в табличной сетке была выбрана запись, были добавлены
(удалены) какие-то данные. Метод Refresh может быть использован для
обновления списка выбранных записей для уменьшения возможности получения
удаленной записи. *}
// function Refresh: Boolean; True = orphans found