Fórum Enviar variável tipo float para Fast Report #558786

Boa tarde.
Para quem tiver o mesmo problema resolví da seguinte forma

No meu formulário Delphi tenho o seguinte código:

//Pegar Saldo Anterior
total:=0;
volume:=0;
cubagem:=0;
peso:=0;
qtd:=0;
saldo:=0;
m2:=0;
dmAux.cdsTmpMovEstoque.First;
while not dmAux.cdsTmpMovEstoque.Eof do
begin
volume:=volume+dmAux.cdsTmpMovEstoqueQtd_volume.AsFloat;
qtd:=qtd+dmAux.cdsTmpMovEstoqueQuantidade.AsFloat;
peso:=peso+dmAux.cdsTmpMovEstoquePeso.AsFloat;
cubagem:=cubagem+dmAux.cdsTmpMovEstoqueCubagem.AsFloat;
m2:=m2+dmAux.cdsTmpMovEstoqueM2.AsFloat;
total:=total+dmAux.cdsTmpMovEstoqueTotal.AsFloat;
dmAux.cdsTmpMovEstoque.Next;
end;


//Cria variaveis no Fast, as variaveis não precisam existir
frxExtratoFat.variables.clear;
frxExtratoFat.Script.Variables['saCarga']:=total;
frxExtratoFat.Script.Variables['saPeso']:=peso;
frxExtratoFat.Script.Variables['saCubagem']:=cubagem;
frxExtratoFat.Script.Variables['saM2']:=m2;

frxExtratoFat.ShowReport();


No Fast fiz o seguinte código:

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
memo32.text:=formatFloat(',#0.00',saCarga);
memo33.text:=formatFloat(',#0.00000',saPeso);
memo34.text:=formatFloat(',#0.0000',saCubagem);
memo35.text:=formatFloat(',#0.0000',saM2);

tEntrada:=0;
tPeso:=0;
tCubagem:=0;
tM2:=0;


procedure Child6OnBeforePrint(Sender: TfrxComponent);
begin
memo28.text:=formatFloat(',#0.00',saCarga + tEntrada);
memo29.text:=formatFloat(',#0.00000',saPeso + tPeso);
memo30.text:=formatFloat(',#0.0000',saCubagem + tCubagem);
memo31.text:=formatFloat(',#0.0000',saM2 + tM2);

end;