Image в Excel

[danka123]

Здравствуйте!
Очень нужна ваша помощь..
Выгружаю данные из бд в Excel. и понадобилось выгружать картинку из Image. Как это сделать не представляю... не понятно как присвоить ячейке картинку...
выгружаю так:

var
s:String;
s1:String;
e:string;
XLApp,Sheet,Colum:Variant;
index,i,j:Integer;
begin

try

//-------------------------
 ADOQuery1.First;
 XLApp:= CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Îò÷åò';
 Colum:=XLApp.Workbooks[1].WorkSheets['Îò÷åò'].Columns;
 

 Colum.Columns[2].ColumnWidth:=30;
 Colum.Columns[3].ColumnWidth:=15;
 Colum.Columns[4].ColumnWidth:=15;
 Colum.Columns[5].ColumnWidth:=15;
 Colum.Columns[6].ColumnWidth:=15;
  Colum.Columns[7].ColumnWidth:=15;
 Colum.Columns[8].ColumnWidth:=15;
 Colum.Columns[9].ColumnWidth:=15;



 Colum:=XLApp.Workbooks[1].WorkSheets['Îò÷åò'].Rows;
 Colum.Rows[2].Font.Bold:=true;
 Colum.Rows[1].Font.Bold:=true;
 Colum.Rows[1].Font.Color:=clwhite;
 Colum.Rows[1].Font.Size:=16;
  XLApp.Selection.MergeCells:=True;
  XLApp.range['B1:I1'].select;




 XLApp.Range['B2:I2'].Select;

 XLApp.Selection.Borders.LineStyle:=1;
// XLApp.Selection.HorizontalAlignment:=3;
 XLApp.Selection.Interior.Color:=clwhite;

Sheet:=XLApp.Workbooks[1].WorkSheets['Îò÷åò'];

 Sheet.Cells[2,2]:='Êëèåíò';
Sheet.Cells[2,3]:='Ãîðîä';
 Sheet.Cells[2,4]:='Óëèöà';
 Sheet.Cells[2,5]:='Äîì';
 Sheet.Cells[2,6]:='Êîðïóñ';
 Sheet.Cells[2,7]:='Ïîäúåçä';
 Sheet.Cells[2,8]:='Ýòàæ';
 sheet.cells[2,9]:='Òåëåôîí';



  index:=3;
  for i:=1 to ADOQuery1.RecordCount do
   begin
    for j:=1 to DBGrid1.Columns.Count do
    Sheet.Cells[Index, j+1]:=DBGrid1.Fields[j-1].AsString;
    Inc(Index);
    ADOQuery1.Next;
    end;


    except
     Application.MessageBox('Îøèáêà âûãðóçêè','Âíèìàíèå',
MB_OK+MB_ICONEXCLAMATION);
end;

Подскажите как запихнуть картинку. заранее большое спасибо