在 frReport 控件中的 GetValue 事件中来传入参数
procedure TReportFrm.frReportGetValue(const ParName: String;
var ParValue: Variant);
var
i:integer;
begin
frVariables['sComputerName']:=GetComputerNames;
for i:=0 to ParamValues.Count-1 do
begin
frVariables[ParamValues.Name[i]]:=ParamValues.Value[i];
end;
end;