procedure TForm1.Button1Click(Sender: TObject);
// 插入图片过程
var Stream:TMemoryStream;
Img: TImage;
begin
try Img := TImage.Create(nil);
Stream := TMemoryStream.Create; // 创建内存流
// 插入图片过程
var Stream:TMemoryStream;
Img: TImage;
begin
try Img := TImage.Create(nil);
Stream := TMemoryStream.Create; // 创建内存流