Erro ao incluir itens na ECF

[anabon]

Boa noite caros,

Estou montando um PDV-ECF com os códigos fornecidos pela BEMATECH, para impressão do cupom fiscal utilizo o emulador também da Bematech, o cupom esta abrindo normalmente, porém ao inserir os itens ele me retorna a mensagem “PARÂMETRO INVÁLIDO”, esta mensagem aparece apenas e execução, não aparece nenhum outro erro e os itens não são impresso nos cupom.
Estou utilizando os seguintes códigos:

//**********************ABRE 
CUPOM***********************************      iRetorno := 
Bematech_FI_AbreCupom(TXTCPF_CLIENTE.Text);      
FRMPDV_FISCAL.Analisa_iRetorno();      
FRMCONFIG_ECF.Retorno_Impressora ();

//************** incluir item 
********************************   //  Verifica o Tipo da 
Quantidade:    // 'I' para Inteira ou 'F' para 
Fracionária    If FRMCONFIG_ECF.RadioButton1.Checked = True 
Then Begin sTipoQtde := 'I' End;    If 
FRMCONFIG_ECF.RadioButton2.Checked = True Then Begin sTipoQtde := 'F' 
End;    // Verifica o Tipo de Decimal:    // 2 
para duas casas ou 3 para três casas    If 
FRMCONFIG_ECF.RadioButton3.Checked = True Then Begin iDecimal := 2 
End;    If FRMCONFIG_ECF.RadioButton4.Checked = True Then Begin 
iDecimal := 3 End;    // Verifica o Tipo de 
Desconto:    // '%' para percentual ou '$' para 
valor    If FRMCONFIG_ECF.RadioButton5.Checked = True Then 
Begin sTipoDesconto := '%' End;    If 
FRMCONFIG_ECF.RadioButton6.Checked = True Then Begin sTipoDesconto := '$' 
End;    {    iRetorno := Bematech_FI_VendeItem( 
Pchar('123ABC'), Pchar('Impressora Fiscal'),        
                      
         Pchar('1700'), Pchar('I'), Pchar('0001'), 2, 
Pchar('85000'),                
                      
 Pchar('%'), Pchar('1000') );    }    
iRetorno := Bematech_FI_VendeItem( TXTCOD_BARRA.Text, txtdescricao.Text, 
TXTALICOTA.Text,                
sTipoQtde, TXTQUANTIDADE.Text, iDecimal, TXTVALOR_UNITARIO.Text,  
              sTipoDesconto, TXTDESCONTO.Text 
);Analisa_iRetorno();FRMCONFIG_ECF.Retorno_Impressora();

A FUNÇÃO:

function Bematech_FI_VendeItem( Codigo: String; 
Descricao: String; Aliquota: String; TipoQuantidade: String; Quantidade: String; 
CasasDecimais: Integer; ValorUnitario: String; TipoDesconto: String; Desconto: 
String): Integer; StdCall; External 'BEMAFI32.DLL';

Já tentei debugar porém sem sucesso, estou presa a este problema a quase dois dias

Utilizo delphi 7...

Desde já agradeço que puder me ajudar

Editado Setembro 27, 2013 por anabon

[Jhonas]

veja que você tem 9 parâmetros na sua função .... o erro: Parâmetro Inválido refere-se a que um dos parâmetros não está sendo passado o valor correto ( tipo ou valor )

coloque um showmessage para cada parâmetro para saber que valores estão sendo passados para a função

abraço