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