var
ResStream : TResourceStream;

begin
ResStream := TResourceStream.Create(HInstance,'PngImage_2 '，RT_RCDATA);//
lmage1.Picture.LoadFromStream(ResStream);//加载图片到控件 lmage中
l mage1.AutoSize := True ;//自动图片大小
其他操作
ResStream.Free ;//释放资源

end;