Source position: lr_barc.pas line 159
procedure TfrBarCodeForm.edZoomKeyPress(
Sender: TObject;
var Key: char
);