[Black Raider]

Вчера только писал:

Код:

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Вопрос WHERE Вопрос like
"%'+find_vop.Text+'%"');
adoQuery1.Active := true;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT * FROM Варианты WHERE Код = :kd');
ADOQuery2.parametrs.parambyname('kd').value:= Adoquery1.fieldbyname('Код').AsInteger;
adoQuery2.Active := true;