Hace bastante tiempo que no lo uso, pero recupero un trozo de código donde asigno valores.
Código Delphi
[-]
if s then
try
VCLReport1.Report.DatabaseInfo.Items[0].IBDatabase := Dat.IBDb;
if nd = 1 then
VCLReport1.Report.DataInfo.Items[0].SQL := Memo1.Text;
VCLReport1.Title := Tit;
if VCLReport1.Report.Params.FindParam('LIMITES') <> nil then
VCLReport1.Report.Params.ParamByName('LIMITES').Value:= Limite;
if VCLReport1.Report.Params.FindParam('INSCRITA') <> nil then
VCLReport1.Report.Params.ParamByName('INSCRITA').Value:= cInscrito;
VCLReport1.Report.PreviewWindow := spwMaximized;
if ModoAppli = 0 then
begin
subreport:=VCLReport1.Report.SubReports[0].SubReport;
asection:=subreport.Sections.Items[0].Section;
alabel:=TRpLabel(asection.AddComponent(TRpLabel));
alabel.Text:='Versión de Demostración';
alabel.FontRotation := 450;
alabel.PosX:=1200;
alabel.PosY:=10600;
alabel.FontSize:=52;
alabel.FontColor:=clBlue;
alabel.FontStyle:=4+1;
end;
VCLReport1.Execute;
finally
VCLReport1.Filename := '';
end
end
Espero que te de pistas de por donde va la cosa.