Desde cierto lenguaje que no es Delphi:
Código:
Report1.ReportFileName = App.Path & "\xxxx.rpt"
Report1.Connect = Ruta
Report1.DataFiles(0) = Ruta
Report1.SelectionFormula = "{MiConsulta.codigo}=" & Trim(Str(Codigo))
Report1.Formulas(0) = "Texto1= 'Fecha : " & LF.Caption & " " & LHI.Caption & "'"
Report1.Formulas(1) = "Texto2= '" & LbR.Caption & " Kg'"
Report1.Formulas(2) = "Texto3= '" & LbV.Caption & " Kg'"
Report1.Formulas(3) = "Texto4= '" & LbA.Caption & " Kg'"
Report1.Formulas(4) = "Texto5= '" & LbG.Caption & " Kg'"
Report1.Formulas(5) = "Texto6= '" & LbL1.Caption & " Kg'"
Report1.Formulas(6) = "Texto7= '" & LbL2.Caption & " Kg'"
Report1.Formulas(7) = "Texto8= '" & LbL3.Caption & " Kg'"
Report1.Formulas(8) = "Texto9= '" & LbL4.Caption & " Kg'"
Un Saludo.