Можеш да го симулираш така:
В мемото си пишеш някаква променлива (в квадратни скоби) - например [IntVal].

procedure TForm1.frReport1GetValue(const ParName: String;
var ParValue: Variant);
begin
if ParName = 'IntVal' then
ParValue := a[idx];
end;

procedure TForm1.frUserDataset1CheckEOF(Sender: TObject; var Eof: Boolean);
begin
Eof := idx > 19;
end;

procedure TForm1.frUserDataset1First(Sender: TObject);
begin
idx := 0;
end;

procedure TForm1.frUserDataset1Next(Sender: TObject);
begin
Inc(idx);
end;

където a ти е Array[0..19], а idx ти е индекса (инициализирай го за всеки случай на 0 да кажен на OnCreate). Важно е също така на самия репорт да кажеш StoreInDFM := True;