[Botaniq]

спасибо всем за подсказку.
я решил задачу так:

Код:

procedure TStart_test.test();
var
i,j: Integer;
begin
DataModule2.OQuery.SQL.Add('select a.* from answer a where a.id_quest='+IntToStr(DataModule2.ODS_QuestID_QUEST.AsInteger));
DataModule2.OQuery.Execute;
j:=0;
while not  DataModule2.OQuery.Eof do
begin
 inc(j);
  mass[j]:=DataModule2.OQuery.Field('ID_Answer');
  otvet[j]:=DataModule2.OQuery.Field('Correct_Answer');
  for i:=0 to ComponentCount-1 do
    begin
    if Components[i].Name = 'Edit' + IntToStr(j) then
      begin
        (Components[i] as TEdit).Text := DataModule2.OQuery.Field('Answer');
      end;
    end;
  DataModule2.OQuery.Next;
     end;
DataModule2.OQuery.Close;
DataModule2.OQuery.Clear;
DataModule2.ODS_Quest.Next;
end;

Admin: Пользуемся тегами, иначе последуют санкции!