Problemas con Reportmanager en Delphi xe3

[pacopenin]

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;
                  // Get the detail section
                  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;
                  // Underline+Bold
                  alabel.FontStyle:=4+1;
               end;
            VCLReport1.Execute;
          finally
            VCLReport1.Filename := '';
          end
     end

Espero que te de pistas de por donde va la cosa.