stringgrid personalizada

interface

uses ..., Contnrs;

type
  TForm1 = class(TForm)
  ...
  private
    Imagens: TObjectList;
  end;

...

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  Imagens := TObjectList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Imagens.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  bmp: TBitmap;
begin
  while not ClientDataSet1.Eof do
  begin
//    Durante a rotina que monta o seu StringGrid, adicione as imagens ao TObjectList
    bmp := TBitmap.Create;
//    bmp.LoadFromFile ou bmp.LoadFromStream
    Imagens.Add(bmp);
    ClientDataSet1.Next;
  end;

end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  bmp: TBitmap;
begin
  // Na coluna que vai desenhar os itens
  if (ACol = 3) then
  begin
    // Pega o bitmap de volta da lista, com o typecast
    bmp := TBitmap(Imagens[ARow-1]);
    StringGrid1.Canvas.StretchDraw(Rect, bmp);
  end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  bmp: TBitmap;
  x, y: Integer;
begin
  // Na coluna que vai desenhar os itens
  if (ACol = 3) then
  begin
    // Pega o bitmap de volta da lista, com o typecast
    bmp := TBitmap(Imagens[ARow-1]);
    x := (Rect.Right - Rect.Left + bmp.Width) div 2;
    y := (Rect.Bottom - Rect.Top + bmp.Height) div 2;
    StringGrid1.Canvas.Draw(x, y, bmp);
  end;
end;