Hola mRoman.
Estuve mirando que el código anterior sólo contempla bitmaps, si deseas usar otros tipos de imágenes basta con un pequeño cambio:
Código Delphi
[-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Pic: TPicture;
begin
if (Column.FieldName = 'IMG') then
begin
Pic := TPicture.Create;
try
Pic.Assign(Column.Field);
DBGrid1.Canvas.StretchDraw(Rect, Pic.Graphic); finally
Pic.Free;
end;
end
end;
Saludos