Вывод массива

Pok3Mon

Уважаемые подскажите почему у меня не выводится массив. Выводятся постояно одни 0.

procedure TForm1.frxReport1GetValue(const VarName: String;
  var Value: Variant);
begin
  if comparetext(VarName, 'element') = 0 then Value := mas1[frmzpperiod.frxUserDataSet1.RecNo];
end;

Заполнение массива происходит на другой форме.

procedure Tfrmzpperiod.BitBtn1Click(Sender: TObject);
var
i,j:integer;
begin
if (checkbox1.Checked) then
  begin
    frxuserdataset1.RangeEnd:=reCount;
    frxuserdataset1.RangeEndCount:=(form1.Sborwikitable.Recordcount);
    form1.Sborwikitable.First;
    for j:=1 to form1.Sborwikitable.RecordCount do begin
      form1.zakaztable.First;
        for i:=1 to form1.zakaztable.RecordCount do begin
          Edit1.Text:=form1.zakaztableSborwiki.AsString;
          Edit2.Text:=form1.SborwikitableFamiliya.AsString;
            if StrPos(PChar(Edit1.Text), PChar(Edit2.Text)) <> nil then
              begin
                form1.zakaztable.Edit;
                form1.zakaztable.FieldByName('Da_net').Asstring:=inttostr(1);
                form1.zakaztable.post;
                kolvosborok:=kolvosborok+1;
            end
        else
          begin
            form1.zakaztable.Edit;
            form1.zakaztable.FieldByName('Da_net').Asstring:=inttostr(0);
            form1.zakaztable.post;
      end;
      form1.zakaztable.Next;
    end;
    mas1[j]:=kolvosborok;
    form1.Sborwikitable.Next;
    kolvosborok:=0;
    end;
    form1.frxReport1.LoadFromFile('reports\zp_vse.fr3');
    form1.frxReport1.ShowReport;
  end;

С помощью отладчика смотрел, массив заполняется верно, но почему то не выводится.
В самом отчете поместил в датабэнд мемо, и в нем написал [element]. датабэнд пробовал крипеть и к frxuserdataset, и frxdataset, эффект одинаковый.
Помогите плз решить проблему!

gpi

А mas1 случайно не в обеих модулях описан?

Pok3Mon

нет, mas1 это глобальный массив, объявлен в одном главном юните!

-=Den=-

Массив нужно передовать через SafeArray.