if you hold a key it looks like:
Window1.Canvas1.KeyDown
Window1.Canvas1.KeyDown
Window1.Canvas1.KeyDown
Window1.Canvas1.KeyDown
Window1.Canvas1.KeyDown
Window1.Canvas1.KeyDown
Window1.Canvas1.KeyDown
Window1.Canvas1.KeyDown
Window1.Canvas1.KeyDown
Window1.Canvas1.KeyDown
Window1.Canvas1.KeyDown
Window1.Canvas1.KeyDown
Window1.Canvas1.KeyDown
Window1.Canvas1.KeyUp
try Refresh with argument immediately = true at KeyUp