GetBitmap (7, im7.Picture.Bitmap);. Repaint;;
TMainForm.Im8Click (Sender: TObject);;;
TMainForm.Im8MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. GetBitmap (8, im8.Picture.Bitmap);. Repaint;;
TMainForm.Im8MouseEnter (Sender: TObject);. GetBitmap (8, im8.Picture.Bitmap);. Repaint;;
TMainForm.Im8MouseLeave (Sender: TObject);. GetBitmap (8, im8.Picture.Bitmap);. Repaint;;
TMainForm.Im8MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. GetBitmap (8, im8.Picture.Bitmap);. Repaint;;
TMainForm.lClick (Sender: TObject);;;
TMainForm.lDblClick (Sender: TObject);;;
TMainForm.lKeyPress (Sender: TObject; var Key: Char); key = # 13 then;;
TMainForm.MemoEnter (Sender: TObject);. Color: = m_clCream;;
TMainForm.MemoExit (Sender: TObject);. Color: = m_cl3DLight;;
TMainForm.N10Click (Sender: TObject);;;
TMainForm.N11Click (Sender: TObject);;;
TMainForm.N12Click (Sender: TObject);;;
TMainForm.N13Click (Sender: TObject);;;
TMainForm.N14Click (Sender: TObject);;;
TMainForm.N15Click (Sender: TObject);;;
TMainForm.N16Click (Sender: TObject);;;
TMainForm.N18Click (Sender: TObject);. run;;
TMainForm.N19Click (Sender: TObject);;;
TMainForm.N20Click (Sender: TObject);;;
TMainForm.N21Click (Sender: TObject);;;
TMainForm.N22Click (Sender: TObject);;;
TMainForm.N23Click (Sender: TObject);;;
TMainForm.N24Click (Sender: TObject);;;
TMainForm.N25Click (Sender: TObject);;;
TMainForm.N26Click (Sender: TObject);;;
TMainForm.N27Click (Sender: TObject);;;
TMainForm.N2Click (Sender: TObject);;;
TMainForm.N3Click (Sender: TObject);. Enabled: = l.Items.Count> 0;. Enabled: = l.Items.Count> 0;. Enabled: = l.Items . Count> 0;. Enabled: = l.Items.Count> 0;. Enabled: = l.Items.Count> 0;. Enabled: = l.Items.Count> 0;;
TMainForm.N5Click (Sender: TObject);;;
TMainForm.N6Click (Sender: TObject);;;
TMainForm.N7Click (Sender: TObject);;;
TMainForm.N8Click (Sender: TObject);;;
TMainForm.N9Click (Sender: TObject);;;
TMainForm.SpeedButton5Click (Sender: TObject);;;
TMainForm.CatCBChange (Sender: TObject);;;;
TMainForm.FillCatCB;: td...