procedure TForm1.FormCreate(Sender: TObject);
begin
 frxUserDataSet1.RangeEnd := reCount;
 frxUserDataSet1.RangeEndCount := 15;
end;

procedure TForm1.frxUserDataSet1GetValue(const VarName: string;
 var Value: Variant);
var
 a, b: Integer;
begin
 if VarName = 'Sutun1' then
 begin
   a := Random(100);
   Value := a;
 end
 else if VarName = 'Sutun2' then
 begin
   b := Random(100);
   Value := b;
 end
 else if VarName = 'Sutun3' then
   Value := Null;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 frxReport1.ShowReport;
end;