[Delphi]KOdy kreskowe w Delphi

Robił ktoś coś podobnego ?
Prosta rzecz mamy 13 cyferek (EAN13) i cchemy narysowac sobie kodzik, nie spotkal sie ktos z takowymi komponentami ?

był taki post w dziale PHP - tylko sobie przetłumacz na delphi