Fórum Intraweb, blob e Iwdbgrid #300291

Criei um procedure para criar figuras para uma lista de produto dinamica em intraweb:


PROCEDURE TFRMPRODUTO.CREATE (SENDER; Tobject);
var
figuras: array of iwimages;
botao: array of iwbutton;
cont,topb,topf:integer;
Begin
Cont=0 ;
TOPF:=20;
TOPB:=100;
Figuras.setlenght:=SESSAO.TBLPRODUTO.RECORDCOUNT;
botao.setlenght:=SESSAO.TBLPRODUTO.RECORDCOUNT;

sessa.first;
while not sessa.tblproduto.eof do
begin
figura[cont]:=tiwimage.create;
figura[cont].height:=115;
figura[cont].width:=89;
figura[cont].name:=’fig’+sessao.tblprodutoProd_codigo.text;
figura[cont].friendblyname:=sessao.tblproduto_prod_codigo.text;
figura[cont].top:=topf;
figura[cont].picture.assigne(sessa.tblprodutoprod_foto.picture);
TOPF:=TOPF+100;
Figura[cont].hint:=’Clique na figura para ampliar’;
Figura[cont].showhint:=true;
Figura[cont].onclick:=ver(strtotint(figura[cont].friendlyname));
// Botao adicionar
botao[cont]:=tiwbutton.create;
botao[cont].height:=30;
botao[cont].width:=100;
botao[cont].name:=’btn’+sessao.tblprodutoProdu_codigo.text;
botao[cont].top:=topb;
Topb:=topb+100;
Botao[cont].friendblyname:=sessao.tblproduto_prod_codigo.text;
Botao[cont].onclick:=inserir(botao[cont].friendlyname));
Botao[cont].extraparametres:=’\\colocar aqui os CSS Style’;
Inc(cont);
Sessa.tblproduto.next;
end;
end;


Gostaria de saber se alguem consegue mostrar imagens em um iwdbgrid pq eu tenho figura em um campo blob do interbase e só consigo listar a figura do campo atual via link com o iwbdimage.