Fórum Validar produto #386113

Pessoal estou fazendo uam comunicaçao com microterminal e preciso fazer uma validação de produto
estou tenda dessa forma mas poremesta dando erro no terminal ele m retorma o valor errado

a função é essa

function TfmTerminais.Valida_Produto(ProdutoTerm: String): integer;
var
 Produto_rec : string;
begin
  result := 0;
  frmmodulo.qrproduto.close;
  frmmodulo.qrproduto.ParamByName('codigo').AsString:=CompletaZero(ProdutoTerm, 6);
  frmmodulo.qrproduto.open;
  if not frmmodulo.qrproduto.IsEmpty then
  begin
    produto_rec := frmmodulo.qrproduto.fieldbyname('codigo').asstring;
    if ProdutoTerm = Produto_rec then
    result := 1;
  end;
end;

no micro terminal ele m retona 0 sendo q deveria aparecer o nome do produto...

a linha que eu chamo a função é essa

produto[Terminal]:= IntToStr(Valida_Produto(Ind_Produto[Terminal]));