Насколько понял связь между таблицами :
вопросов ответов по полю код? если да то проблем никаких
что мешает дописать:
Код:
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Вопрос WHERE Вопрос like
"%'+find_vop.Text+'%"');
adoQuery1.Active := true;
DataSource1.DataSet:=ADOQuery1;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT * FROM Варианты WHERE Код = :kd');
ADOQuery2.parametrs.parambyname('kd').value:= Adoquery1.fieldbyname('Код').AsInteger;
adoQuery2.Active := true;
DataSource2.DataSet:=ADOQuery2;