private
  sm: TStringList;
....
procedure TForm2.btn6Click(Sender: TObject);
begin
  frxsrdtst1.RangeEnd := reCount;
  frxsrdtst1.RangeEndCount := sm.Count;
  frxrprt1.ShowReport;
end;

procedure TForm2.FormCreate(Sender: TObject);

begin
  sm := TStringList.Create;
  sm.Add('11');
  sm.Add('222');
  sm.Add('3');
  sm.Add('4');
  sm.Add('5');
  sm.Add('6');
  sm.Add('7');
  sm.Add('8');
  sm.Add('9');
end;


procedure TForm2.frxrprt1GetValue(const VarName: string; var Value: Variant);
begin
  if CompareText(VarName, 'element') = 0 then
    Value := sm[frxsrdtst1.RecNo];
end;

end.

 if CompareText(VarName, 'element') = 0 then
    Value := gsl3[frxsrdtst1.RecNo];