[pax]

Попробуй так:

program NewProject;
var
 *keyCode: integer; 

begin 

 *repeat 
 * *keyCode := GetKeyPressed;
 * *SetColor(255, 255, 255);
 * *FillRect(0, 0, GetWidth, GetHeight);

 * *if *keyCode = KE_NONE *then drawImage(loadImage('/kartinka1.png'), 0, 0); 
 * *if *keyCode = KE_KEY4 *then drawImage(loadImage('/kartinka2.png'), 0, 0); 
 * *if *keyCode = KE_KEY6 *then drawImage(loadImage('/kartinka3.png'), 0, 0);

 * 
 * *Repaint; 
 *until (keyCode = KE_KEY0) or (KeyToAction(keyCode) = GA_FIRE);
 
end.