[jcarlos.matrix]

a ver si te puedo ayudar

st1 = stringgrid
es un codigo que tenia. nada mas le hace falta un poco de modificacion
je sorry

procedure TFA_scanear.st1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
i:integer;
begin
ren:=arow;
col:=acol;
for i:=0 to n-1 do
begin
images[i].Im_stream.Seek(0,soFromBeginning);
image.Picture.Bitmap.LoadFromStream(images[i].Im_stream);
st1.Canvas.StretchDraw(st1.CellRect(0,i+1),image.Picture.Graphic);
if st1.cells[1,i+1]<> images[i].estado then
st1.cells[1,i+1]:=images[i].estado;
end;
end;