[DIMMON4IK]

var img,newimg: image; w,h:integer;
Begin
img:=LoadImage('/image.png');
w:=getwidth;h:=getheight;
if w<h then
newimg:=canvas.resize_image(img,w,trunc((getimageH eight(img)*w)/getimagewidth(img)));
if w>h then
newimg:=canvas.resize_image(img,trunc((getimageWid th(img)*h)/getimageheight(img)),h);
if w=h then img:=newimg;
DrawImage(newimg,0,0);
Repaint;
Delay(5000);
End.