Source position: qonguard2.pas line 116
procedure TCodeGenerateFrm.NumberKeyEdPress(
Sender: TObject;
var Key: char
);