meu cupom não fecha

Amigos, estou enfrentando um serio problema, minha rotina de cupom esta de acordo com todos as dicas recebidas, porem não fecha o cupom e não retorna nenhum erro

[color=red:b7505e8b1d] ValorCompra := formatfloat(´#0.00´,Curvrpago.Value); iRetorno:=Bematech_FI_EfetuaFormaPagamento(Pchar(vPagto),Pchar(ValorCompra));
Form_Entrapdv.Analisa_iRetorno();
Form_Entrapdv.Retorno_Impressora();
iRetorno := Bematech_FI_TerminaFechamentoCupom(pchar(Mensagem));
Form_Entrapdv.Analisa_iRetorno();
Form_Entrapdv.Retorno_Impressora();[/color:b7505e8b1d]

so consigo fazer fechamento simples, mas preciso retornar o valor do troco e de acordo com a forma de pagto preciso retornar valor entrada em dinheiro ou cheque e valor das parcelas do cartão ou cheque...
me ajude por favor