TstringGrid Problem

[donmarkus]

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ImgList,Types, Menus;

Code:

procedure TMines.Button1Click(Sender: TObject);
var bm: TBitmap;
begin
  if Sender <> NIL then
  with Sender as TStringGrid do
  begin
    bm := TBitmap.Create;
    try
      ImageList1.GetBitmap(0, bm);  
      Canvas.Draw(Rect.Left + 5, Rect.Top + 5, bm);    //hier kommt die oben genannte fehlermeldung
    finally
      FreeAndNil(bm);
    end;
  end;
end;

wie gesagt will ich in eine Zelle ein kleines bildchen einfügen.Eine Imagelist habe ich erstellt.