[NumLock]

в конце DBGrid1DrawColumnCell DBGrid1.Repaint;