fast report iterate over user data to put it into databand

procedure TTestForm.YourUserDataGetValue(const VarName: string; var Value: Variant);
begin
if VarName = 'FieldName1' then begin
Value := AnDBResultset.getCell(YourUserData.Tag, 'columnname1');
end else if VarName = 'FieldName2'  then begin
Value := AnDBResultset.getCell(YourUserData.Tag, 'columnname2');
end;
//etc...
end;

procedure TTestForm.YourUserDataNext(Sender: TObject);
begin
  YourUserData.Tag := YourUserData.Tag + 1
end;

procedure TTestForm.YourUserDataPrior(Sender: TObject);
begin
  while YourUserData.Tag > 0 do
    YourUserData.Tag := YourUserData.Tag - 1
end;

procedure TTestForm.YourUserDataCheckEOF(Sender: TObject; var Eof: Boolean);
begin
  Eof := YourUserData.Tag > (AnDBResultset.RowCount - 1);
end;

procedure TTestForm.YourUserDataFirst(Sender: TObject);
begin
  YourUserData.Tag := 0;
end;