Insérer une image dans une cellule d'un DrawGrid

Par exemple pour dessinner dans Cell[1,1] :
__________________________________________





procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
     if (ACol=1) and (ARow=1) then
          with Sender as TDrawGrid do
               begin
               Canvas.Draw(rect.Left,rect.Top,image1.Picture.Graphic);
               {ou autre code, on peut par exemple charger une image
               à partir d'une imagelist}

               end.
end;
__________________________________________

DrJerome