Código Delphi [-]
{ actualizar las variables del Report con las variables del proceso }
  with VCLReport1 do begin
       FileName        := strFileReport;
       Preview         := False; //------> para imprimir
       //Preview         := True; //-------> para verlo en pantalla
       ShowProgress    := True; //-------> ver la barra de progreso
       ShowPrintDialog := False; //------> no ver la barra de herramientas
       Title           := 'INFORME DE DATOS CALCULADOS';
     { rellenar el informe }
       with Report.Params do begin
          { parametros de la oficina }
            ParamByName('OFICINA').Value       := 'En mi casa';
            ParamByName('PROVINCIA').Value     := 'ALBACETE';
          { unidades de medida }
            ParamByName('EN_METROS').Value     := EN_NUDOS;
            ParamByName('EN_KILOMETROS').Value := EN_KILOMETROS;
       end; { del with Report.Params do }
     { ejecutar el informe }
       Execute;
  end; { del with VCLReport1 do }

Código Delphi [-]
{ procedimiento de creación de una variable entera }
procedure TReportForm1.CrearVariableInteger( sNombre:string; iValor:integer );
var
  aQREvElement: TQREvElement;
begin
  with QuickRep1.Functions do
  begin
    aQREvElement := GetConstant(sNombre);

    if (aQREvElement <> nil) and (aQREvElement.Value(nil).Kind = resInt) then
    begin
      SetIntegerConstant(aQREvElement, iValor);
    end;
  end;
end;

{ función de lectura de una variable entera }
function  TReportForm1.LeerVariableInteger( sNombre:string ):integer;
var
  aQREvElement: TQREvElement;
begin
  with QuickRep1.Functions do
       aQREvElement := GetConstant(sNombre);

  Result := aQREvElement.Value(nil).intResult;
end;

Código Delphi [-]
var
   miIntPrueba : ineteger;
begin
   ...
   CrearVariableInteger( 'INTPRUEBA', 300 );
   ...

   ...
   miIntPrueba            := LeerVariableInteger( 'INTPRUEBA' );
   QRLabel_PRUEBA.Caption := FormatFloat( '##0', miIntPrueba );
   ...
end;

Código Delphi [-]
uses qrExpr;

var pr:TqrEvResult;
// añadimos por código una función:
Quickreport1. functions.addFunction('piopio', quotedStr('mi gorrioncito canta pio pio')); 
Quickreport1. functions.addFunction('unEntero', 25)); 
// si es un string, debes pasarlo con quotedStr, o el parser interno creerá que es una 
//función de agregado (avg, sum, etc) o funciones interna dando excepciones 'Unknow function 'migorrioncito canta pio pio'.

// una vez creados los parámetros por código, es necesario que internamente cree esas funciones:
quickreport1.functions.Prepare;

// Ver los valores que tiene asignados:

// 1ª forma:
ShowMessage(quickreport1.functions.Value('piopio').strResult);


// 2ª forma:
pr := quickreport1.functions.Value('unEntero');
ShowMessage(inttostr(pr.intResult));

// pr es un puntero, así que podemos cambiar su valor y lo acepta sin problemas:
pr.intResult := 32;

// comprobación de que ha aceptado:
pr := quickreport1.functions.Value('unEntero'); // buscamos de nuevo la funcion
ShowMessage(inttostr(pr.intResult)); // dará el valor 32.

Código Delphi [-]
    if form1 = nil then  //Presumiendo que el form no esta creado
        begin
          dm.qDiario.DisableControls; // si vienen los datos de un Dataset
          form1:= tform1.Create(self); // de crea el form en runtime
          form1.QuickRep1.print; // mandas a imprimir directamente
          dm.qDiario.EnableControls;
          form1.Free; //destruye el form
          form1:= nil;
        end
      else
        begin
          form1.Free;
          form1:= nil;
        end;