[lmikle]

Ну, например, есть кнопочки Button1-Button6.
Можно их просто в массив запомнить один раз (что бы каждый раз не искать)

Код:

type
  TForm1 = class(TForm)
  ...
    MyButtons : Array [1..6] Of TButton;
...
procedure TForm1.FormCreate(Sender : TObject);
begin
  MyButtons[1] := Button1;
  MyButtons[2] := Button2;
  MyButtons[3] := Button3;
  MyButtons[4] := Button4;
  MyButtons[5] := Button5;
  MyButtons[6] := Button6;
end;

Пусть ты получаешь вопросы из БД (догадываюсь, что Access и доступ через ADO). Тогда как-то так:

Код:

procedure TForm1.ConfigureButtons(Query : TADOQuery);
var
  I : Integer;
begin
  For I := 1 To 6 Do
    MyButtons[i].Visible := I <= Query.RecordCount;
end;

Query - твой запрос, через который ты получаешь список ответов.

ЗЫ. А вообще, можно и динамически кнопки создавать при необходимости.