Выгрузка TImage в Excel

procedure TfmMain.TestBtnClick(Sender: TObject);
var Img: TImage;    
    xla: Variant;
    xls: Variant;
begin
  Img:=TImage.Create(nil);

  xla := CreateOleObject('Excel.Application');
  xla.Workbooks.Add;
  xls := xla.Workbooks[1].WorkSheets[1];
  xls.Name := 'Sheet1';
  xla.Visible:=True;

  Clipboard.Assign(Img.Picture);
   
  xla.Cells(5,5).Select;
  xls.PasteSpecial(5,False,False,False,0,EmptyParam,EmptyParam);  

  Img.Free;
end;

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes,SysUtils,Forms,Controls,Graphics,Dialogs,ExtCtrls,StdCtrls,
  fpstypes,fpspreadsheet,fpsallformats,fpsutils,fpsPageLayout;  // взаимодействие с Excel

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  MyWorkbook: TsWorkbook;
  MyWorksheet: TsWorksheet;

  filename_png: string;
  filename_xls: string;


begin

  MyWorkbook := TsWorkbook.Create;

  filename_xls := 'D:\1\img_excel\name1.xlsx';                    // путь к Excel 2010
  filename_png := 'D:\1\img_excel\imagee.png';                    // путь к изображению *.png
  try
     MyWorkbook.ReadFromFile(filename_xls);                       // место, где находится файл Excel 2010

     MyWorksheet := MyWorkbook.GetFirstWorksheet;                 // рабочий лист 1(первый)

     Image1.Picture.SaveToFile(filename_png);                     // сохраняем в нужную дерикторию изображение из Image1

     MyWorksheet.WriteImage(1,3,filename_png,0.0,0.0,0.25,0.25);  // *.png в 4 столбце 2 строке (0.0 - смещение точки привязки *.png от угла текущей ячейки, 0.25 иасштаб уменьшен в 1/4 раз)

     MyWorkbook.WriteToFile(filename_xls, sfOOXML, True);         // сохранение в файле Excel 2010

  finally
     MyWorkbook.Free;
  end;
     Close;
end;


end.