delphi Image按照图片比例显示？

打开一个图片让Image按图片的原始比例显示出来？

上图是酷狗设置头像的图片，显示的是按比例显示的。
delphi怎么实现呢？

Strech属性设置为True
AutoSize为false
然后根据图片原始的长宽比，调整Image长和宽