如何使图片自适应image大小?

[combox_p]

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Picture.RegisterFileFormat('jpeg','JPEG',TJPEGIMAGE);
image1.Picture.LoadFromFile('d:\1.jpg');
end;

picture的AutoSize设为True,图片可完全显示,但是显示时,Image被放大,我想知道如果不放大Image,而图片被完全显示?

[Jikycc]

得到Picture的长宽比例，然后改变Image1的长宽

[Jikycc]

得到Picture的长宽比例，然后改变Image1的长宽

[lenism521]

设置image的stretch属性为true；

[ahjoe]

支持1楼。