как читать штрих код со сканера

шеф обрадовал, сканер купить надо, вот! какой выбрать, тема такая: маленький магазин, продавец по упаковке провел, все в базу (надо будет писать на дельфях), сканер подключается к компу.
если есть пример работы со сканером, буду оч. презнателен! :)

немного подробнее

Private Sub MSComm1_OnComm()
Static bar As String, sSc As String, nSc As Long

If Not bSavingProgress Then ----- ?
DoEvents
With MSComm1
If .CommEvent = 2 Then -------- что означает 2
Do While .InBufferCount > 0
sSc = sSc & .Input ----- сюда входная строка? все зависит от сканера, что она будет содержать да?
nSc = InStr(1, sSc, vbCr) что такое vbCr
If nSc > 0 Then
bar = Left(sSc, nSc - 1)
sSc = Mid$(sSc, nSc + 1)
.RTSEnable = False прием закрывает?
ProcessingBarCode bar
bar = ""
End If
Loop
End If
End With
End If
End Sub

значит реальный проект с реальным сканером да?
тогда вопрос: какой сканер используешь? какой надо купить, ясно что сом-портовый, может есть конкретная модель? не в курсе как ps/2 работает, он сразу символы в буфер клавы кидает? то есть воткнул в порт и процесс пошел в любой вордпад?
тут тема такая: штрих наклейки будет печатать принтер, в дельфях есть такая тема как бар код, я думаю с ентим проблемы нет. дальше надо сканер

большое спасибо, можно вопросы при случае по мылу?