TFPDrawBarCode

pt 

CheckFreeCanvas

pt 

CalcWidths

Create

Destroy

CheckCanvas

Draw

AllowDraw

CalcWidth