Fórum Numeric Overflow or String Truncation, Me Ajudem! #37427

Olá pessoal
É o seguinte, tenho o codigo abaixo no OnChange do Edit

procedure TfrmVBalcao.edtCodigoChange(Sender: TObject);
var codigo : Int64;
begin
If edtCodigo.Text <> ´´
Then Begin
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(´select * from produtos´);
IBQuery1.SQL.Add(´WHERE CODIGO = :pcodigo or COD_BARRAS = :pcodigo´);
TryStrToInt64(edtCodigo.Text,codigo);
IBQuery1.ParamByName(´pcodigo´).AsCurrency := codigo;
IBQuery1.Open;
End;
end;

Como faço para passar um numero grande, tipo um codigo de barras pro parametro???

na minha tabela esta assim a declaração

CODIGO INTEGER NOT NULL,
COD_BARRAS NUMERIC(14),

Obrigado!

Rafael