procedure TForm1.Button1Click(Sender: TObject); // 插入圖片過程 var testStream:TMemoryStream; begin try testStream : = TMemoryStream.Create; // 創建內存流 Image1.Picture.Graphic.SaveToStream(testStream); // 將圖片保存至內存流中