如何在tdrawgrid中画图(50分)

小弟目前碰到一难题 具体如下
要在tdrawgrid的几个符合条件的cell中各画一副具体的图(用timagelist)实现
请各位大虾不吝赐教 最好带有实例源代码

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var i:integer;
begin
i:=0;
if Acol=1 then //在第二列画图
begin
case Arow of //此处你可以根据需要换成你的条件
1,3,5: i:=0;
2,4,6,8,9,10: i:=1;
end;
ImageList1.Draw(DrawGrid1.canvas,Rect.left+8,rect.top+4,i);
end;
end;

就是这样我来迟了

多人接受答案了。