Отрисовка формы по клику DBNavigator

[Sinapsik]

Имеется форма для редактирования вопросов теста

На ней расположен обычный ComboBox (1).Его items'ы заполняются по событию

procedure TForm2.FormShow(Sender: TObject);
var
s:string;
begin
 table2.First;
 Repeat
  begin
  s:=Table2Name.Value;
  ComboBox1.Items.Add(s);
  Table2.Next;
  end;
 Until Table2.Eof;
end;

Задача:по клику кнопки Next/Prev DBNavigator'а обновлять значение ComboBox'а в соответствии с предметом к которому относится вопрос.Пробовал вот так

procedure TForm2.FormPaint(Sender: TObject);
begin
ComboBox1.ItemIndex:=(Round(Table1ID.Value)-1);
end;

пы.сы.делается на BDE,в первой таблице есть поля Vopros(текст вопроса),ID(номер предмета),Nomer1..4(варианты ответов 1..4),Otvet (номер правильного ответа);во второй Name (название предмета),ID (номер предмета)
пы.сы2.сам ComboBox заполнен правильно и полностью,но когда прощелкиваешь до вопроса не относящегося к теме "Programmist",его значение не изменяется

[asmodey1]

При чем тут "отрисовка формы" ???

procedure TForm2.Table1AfterScroll(DataSet: TDataSet);
begin
ComboBox1.ItemIndex:=(Round(Table1ID.Value)-1);
end;

Только как-то странно - идентификатор берется из Table1, а наименование - из Table2...
Выглядит "невмеруэпическикруто" !

[Sinapsik]

Сообщение от asmodey1

При чем тут "отрисовка формы" ???

Ну,неправильно выразился,потому что думал что все же с OnPaint'ом связано

Сообщение от asmodey1

Только как-то странно - идентификатор берется из Table1, а наименование - из Table2...
Выглядит "невмеруэпическикруто" !

а потому что без ключей,глупый я еще

А в целом,спасибо большое