image IMG1
IMG1 := RealImage("New", 4, 128, 128)
ShowImage(IMG1)
SetSelection(IMG1, 5, 10, 100, 100)
ClearSelection(IMG1)
