[VenZell]

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

Код:

// процедура обновления списка направлений
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