Same as @GolezTrol suggests but with integer division and a check if there is a picture assigned to the image:
if Assigned (Image.Picture.Graphic) then // is there an image assigned?
begin
ImgX := (Image.Width - Image.Picture.Graphic.Width) div 2;
ImgY := (Image.Height - Image.Picture.Graphic.Height) div 2;
end;