type
TFunctions = class(TfsRTTIModule)
  public
    function CallMethod(Instance: TObject; ClassType: TClass;const AName: String; Caller: TfsMethodHelper): Variant;
    constructor Create(AScript: TfsScript); override;
end;

constructor TFunctions.Create(AScript: TfsScript);
begin
  inherited Create(AScript);
  with AScript do begin
    with AddClass(TfrxReportDataSets, 'TCollection') do begin
      AddMethod('procedure Add(ds: TfrxDataSet)',CallMethod);
      AddMethod('procedure Delete(Name: string)',CallMethod);
    end;
    with FindClass('TfrxReport') do
      AddMethod('function DataSets:TfrxReportDataSets;', CallMethod);
  end;
end;

function TFunctions.CallMethod(Instance: TObject; ClassType: TClass; const AName: String; Caller: TfsMethodHelper): Variant;
begin
  if ClassType = TfrxReportDataSets then begin
    if AName = 'ADD' then
      TfrxReportDataSets(Instance).Add(TfrxDataSet(integer(Caller[0]))) else
    if AName = 'DELETE' then
      TfrxReportDataSets(Instance).Delete(string(Caller[0]));
  end;
    if ClassType = TfrxReport then begin
      if AName = 'DATASETS' then Result := integer(TfrxReport(Instance).DataSets);
end;

initialization
  fsRTTIModules.Add(TFunctions);

finalization
  fsRTTIModules.Remove(TFunctions);
end.