[indi]

qryvopros.SQL.Text := 'select номер_вопроса,вопрос from Vopros where Код_тем = '+qrytema.fieldbyname('Код_ттттт'). AsString;
qrytema.Next;
qryvopros.Open;

он у меня выводит только вопросы по первой теме в таблице. Как сделать так чтоб он выводила вопросы по всем темам? Плиз, помогите