Lazarus: ошибка переполнения не могу понять почему

    procedure TForm1.ShownAnswer(listA: TSQLQuery; RadioGroupA: TRadioGroup;var n:integer);  //вывод n вопроса  в DBMemo
    var   s:string;
          i:integer;
begin
   str(n,s);      //Преобразование в строк
    with listA do
    begin
          Close;
          SQL.Text:='SELECT * From ANSWERS WHERE ID_QUSTION='+s+';';   //Запрос на вывод вопроса в DBMEMO и конкатенация с номером вопроса
          Open;
          RadioGroupA.ItemIndex:=-1;
          //for i:=0 to 1 do
          RadioGroupA.Items[i]:=Fields[i+1].asString;
          Close;
    end;
end; 

Ошибка конкретно такая Project twotwotwo raised exception dass 'EStringListError' with message: List index (0) out of bounds Вызывается эта процедура так ShownAnswer(listAnswers,RadioGroup1, n) Где n = 1 Не могу понять как исправить эту ошибку. Подскажите куда копать.