Передать значения переменным в FR

Запрос возваращает список значений, которые хочу передать переменным FR... Подскажите, где не правильно.

...
gg:=DM1.Dodatok.RecordCount;
for i := 0 to gg - 1 do
begin
  pr[i+1]:=DM1.Dodatok.FieldByName('Name').asstring;
  DM1.frxDodatok.Variables['pr'+'['+IntToStr(i+1)+']']:=pr[i+1];
  DM1.Dodatok.Next;
end;
DM1.frxDodatok.ShowReport();

1. Как ругается?
2. Я так понимаю, что DM1.Dodatok - это датасет (с забавным именем :)). Тогда, исходя
из этого, для перебора всех записей лучше использовать алгоритм:

  while not DM1.Dodatok.Eof do
  begin
    ......
    DM1.Dodatok.Next;
  end;

когда выводится отчет на просмотр то данные не вижу... В смысле, где переменная в отчете должна показать строковое значение - пусто...

сделал вот как:

i:=1;
while not DM1.Dodatok.Eof do
begin
  DM1.frxDodatok.Variables['pr'+IntToStr(i)]:=''''+DM1.Dodatok.FieldByName('Name').asstring+'''';
  DM1.frxDodatok.Variables['oc'+IntToStr(i)]:=''''+DM1.Dodatok.FieldByName('OCn').AsString+'''';
  i:=i+1;
  DM1.Dodatok.Next;
end;

все работает...

drak, читаем в хелпе про рекорд каунт...