Pascal program
{Please install plugin BarCode before run this sample}
uses barCode;

var
  result : string;ttf
begin
  writeln('Starting scan bar code....');
  result := scanbarcode;
  writeln('Scanned :' + result);
end.