AdvStringGrid 中加载图片

procedure TForm1.AdvStringGrid4DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
 d: TBitmap;
Const
 Path= 'qpsl.bmp';
 path1= 'qpt.bmp';
begin
 d:= TBitmap.Create;
 d.LoadFromFile(Path);
 if (ACol = 10) and (ARow = 1)  then
 begin
   AdvStringGrid4.Canvas.Draw(Rect.Left,Rect.Top,d);
 end;
 d.Free;

 d:= TBitmap.Create;
 d.LoadFromFile(Path1);
 if (ACol = 12) and (ARow = 8)  then
 begin
   AdvStringGrid4.Canvas.Draw(Rect.Left,Rect.Top,d);
 end;
 d.Free;

end;