Foros Club Delphi - timage a excel

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)

- - timage a excel (https://www.clubdelphi.com/foros/showthread.php?t=76434)

buenas tardes.
Tal vez este tema ya lo trataron y ya visite muchos hilos que me dio google, pero con ninguno puedo resolver este problema, lleno un formulario en Delphi, lo cargo de una base de datos, la cual trae una imagen que cargo en un timage, es un .png lo mando a Excel para imprimirlo, pero no encuentro como insertar esa imagen en un celda especifica de Excel, bueno nisiquiera se cómo enviarlo a cualquier parte de la hoja. Estoy utilizando el texcelaplication.
Si me pudieran ayudar se los agradecería.

Después de mucho buscar y adaptar pedazos de código encontré la manera de hacerlo, guardando la imagen temporalmente y después eliminándola, esto es para salir de la apuración, pero si alguien sabe cómo hacerlo directo del Timage agradecería que me dijeran.
Este es el código.

Variable

rutaImagen : String;
picture: OleVariant;

uses
pngimage, ExcelXP,
:)

Código Delphi [-] 
Hoja.Range['H1','H5'].MergeCells := true;
  if not DirectoryExists('C:\Ima\') then CreateDir('C:\Ima\');
  barr.Picture.SaveToFile('C:\Ima\barra.png');
  rutaImagen := 'C:\Ima\barra.png';
  picture := Excel.ActiveSheet;
  picture := Hoja.shapes.addpicture(rutaImagen, 0, 1, Hoja.Range['H1','H1'].Left+3,  Hoja.Range['H1','H1'].Top+3, 50, 50);
  picture.Placement:= xlMoveAndSize; // Importante para fijar la imagen a la celda
  DeleteFile('C:\Ima\barra.png');

" barr " es el nombre de timage