ну как вариант при перетаскивании в ячейке писать циферку (ну или прямо так и писать "история"), а потом
Код:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var i: integer;
begin
with StringGrid1 do
begin
for i:=0 to rowcount do
begin
if cells[1, i] = '0' {или cells[1, i] = 'история'} then canvas.Draw(cellRect(1,i).Left, cellRect(1,i).Top, Image1.Picture.Graphic); // рисуем че-то из Image1, если в клетке ноль
// и так далее смотря какой рисунок
end;
end;
end;