Streched Draw i StringGrid

hvorfor ikke få cellen til at autosize efter indholdet i din stringgrid?
http://www.swissdelphicenter.ch/en/showcode.php?id=604

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  aBitmap: TBitmap;
  aRect: TRect;
begin
  aBitmap := TBitmap.Create;
  try
    StringGrid1.Canvas.FillRect(Rect);
    aBitmap.Width := ImageList1.Width;
    aBitmap.Height := ImageList1.Height;
    aBitmap.Canvas.Brush.Color := StringGrid1.Canvas.Brush.Color;
    aBitmap.Canvas.Brush.Style := StringGrid1.Canvas.Brush.Style;
    aRect := Bounds(0, 0, aBitmap.Width, aBitmap.Height);
    aBitmap.Canvas.FillRect(aRect);
    ImageList1.Draw(aBitmap.Canvas, 0, 0, 0);
    StringGrid1.Canvas.StretchDraw(Rect, aBitmap);
  finally
    aBitmap.Free;
    aBitmap := nil;
  end;
end;

Overstående kode strækker kun billedet over enkelte celler.

Hvis billedet derimod skal strækkes over hele stringgriden, så prøv følgende, men jeg advarer, det er lidt langsomt:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  aBitmap, bBitmap: TBitmap;
  aRect: TRect;
begin
  aBitmap := TBitmap.Create;
  bBitmap := TBitmap.Create;
  try
    aBitmap.Width := ImageList1.Width;
    aBitmap.Height := ImageList1.Height;
    aBitmap.Canvas.Brush.Color := StringGrid1.Canvas.Brush.Color;
    aBitmap.Canvas.Brush.Style := StringGrid1.Canvas.Brush.Style;
    aRect := Bounds(0, 0, aBitmap.Width, aBitmap.Height);
    aBitmap.Canvas.FillRect(aRect);
    ImageList1.Draw(aBitmap.Canvas, 0, 0, 0);
    bBitmap.Width := StringGrid1.ClientWidth;
    bBitmap.Height := StringGrid1.ClientHeight;
    bBitmap.Canvas.StretchDraw(StringGrid1.ClientRect, aBitmap);
    StringGrid1.Canvas.CopyRect(Rect, bBitmap.Canvas, Rect);
  finally
    aBitmap.Free;
    bBitmap.Free;
    aBitmap := nil;
    bBitmap := nil;
  end;
end;