[Igor]

procedure imagetocentr(im:image);
var h,w;
begin
h:=(getheight-getimageheight(im))/2;
w:=(getwidth-getimagewidth(im))/2;
drawimage(im,w,h);
repaint;
end;
P.S. Возможно, я что-то напутал, но работать должно. Ты, наверное, при загрузке изображения имя неправильно пишешь.