procedure TForm1.frReport1GetValue(const ParName: String;
var ParValue: Variant);
begin
if parname='jun' then
parvalue:='jun''s value';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
frReport1.LoadFromFile('f:/jun.frf');
frReport1.ShowReport ;
end;