[Marvel]

Код:

procedure TForm1.FillEdits(id_quest,id_test: integer);
var
  i,cnt: integer;
begin
  cnt := 0;
  ZAnswers.SQL.Text := 'SELECT * FROM answer WHERE ID_QUEST='+IntToStr(id_quest) + ' AND ID_TEST=' + IntToStr(id_test);
  ZAnswers.Open;
  while not ZAnswers.Eof do
  begin
    Inc(cnt);
    for i:=0 to ComponentCount-1 do
    begin
      if Components[i].Name = 'EAnswer' + IntToStr(cnt) then
      begin
        (Components[i] as TEdit).Text := ZAnswers.FieldByName('ANSWER').AsString;
      end;
    end;
    ZAnswers.Next;
  end;

  ZAnswers.Close;
end;

или так:

Код:

procedure TForm1.FillEdits(id_quest,id_test: integer);
var
  i: integer;
begin
  ZAnswers.SQL.Text := 'SELECT * FROM answer WHERE ID_QUEST='+IntToStr(id_quest) + ' AND ID_TEST=' + IntToStr(id_test);
  ZAnswers.Open;

  EAnswer1.Text := ZAnswer.FieldByName('ANSWER').AsString;
  ZAnswers.Next;

  EAnswer2.Text := ZAnswer.FieldByName('ANSWER').AsString;
  ZAnswers.Next;

  EAnswer3.Text := ZAnswer.FieldByName('ANSWER').AsString;
  ZAnswers.Next;

  EAnswer4.Text := ZAnswer.FieldByName('ANSWER').AsString;

  ZAnswers.Close;
end;