Erro na leitura de barras

Boa tarde pessoal,

Meu programa não esta conseguindo ler o código de barras, gerei os códigos de barra tipo btCodeEAN13 do CJVBarcode desta forma:

procedure Tfproduto.DBGrid1ColExit(Sender: TObject);
begin
if (DbGrid1.SelectedIndex=12) then
begin
tbproduto.edit;
tbproduto[´codbarra´] := ´789827287´ + tbproduto[´codigo´] ;
tbproduto.post;
end;
end;

O delphi (banco paradox) grava na tabela o código sem o digito identificador mas imprime a etiqueta com o identificador, o que pode estar errado, o sistema pode identificar no banco um código sem o digito identificador?

Para a leitura do código eu escrevi o font abaixo que também pode estar errado pois o leitor traz sempre o primeiro registro.

procedure TFvendas.EditCodBarraKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
try
tbproduto.Open;
tbproduto.IndexFieldNames := ´codbarra´;
tbproduto.Editkey;
tbproduto.FindNearest([EditCodbarra.Text]);
tbproduto.Refresh;
except on
EDBEngineError do MessageDlg(´Erro na busca! Tente novamente.´, mtError,
[mbOK], 0);
end;
begin
if EditCodPed.Text=´´ then begin
Showmessage(´Escolha Nova Venda, para continuar´);
abort;
end;
tbitem.insert;
tbitem[´codigo´]:= tbproduto[´codigo´];
tbitem[´nome´]:= tbproduto[´item´];
tbitem[´Qtd´]:= 1;
tbitem[´vrunit´]:= tbproduto[´venda´];
tbitem[´data´]:=DateTostr(now);
tbitem.post;
EditCodbarra.Clear;
EditCodbarra.SetFocus;
end;
end;
end;

Se os colegas puderem me ajudar eu agradeço antecipadamente.

Abraço.

Valdir Lima