[Botaniq]

Здравствуйте!
Возникла проблема при выводе в Label одного значения из запроса.
БД Oracle.
На данную форму в Label не выводится и выдает ошибку ''Access violation....'', а на другую форму выводит без ошибки.

Код:

procedure TStart_test.Button4Click(Sender: TObject);
var
r,i: integer;
begin
DataModule2.OracleQuery2.Next;

r:=DataModule2.OracleQuery2.Field('id_quest');
k:=0;

DataModule2.OQuery.SQL.Add('select a.*,b.quest from answer a, quest b where a.id_quest='+IntToStr(r)+'and b.id_test='+IntToStr(form1.idtest)+'and a.id_quest=b.id_quest');
DataModule2.OQuery.Execute;

Start_test.Label1.Caption:=DataModule2.OQuery.Field('quest');


mass[k]:=DataModule2.OQuery.Field('id_quest');

while not DataModule2.OQuery.Eof do

   begin
 inc(k);
  for i:=0 to ComponentCount-1 do
    begin
    if Components[i].Name = 'Edit' + IntToStr(k) then
      begin
        (Components[i] as TEdit).Text := DataModule2.OQuery.Field('Answer');
      end;

   end;


 DataModule2.OQuery.Next;


end;

DataModule2.OQuery.Close;
DataModule2.OQuery.Clear;
end;