Hi Luiz,

var
PICTField:TIB_Column;
begin
PICTField := TIB_ColumnBlob( qry.FieldByName( 'FOTO' )); <===
tb := cr.CreateBlobStream(PICTField,bsmread); <===
try
with MyBitMap do begin
LoadFromStream(tb);
end;
finally
tb.free;
end;
end;

PICTField is just an cast ?

What is cr ?

Regards,
Arno Brinkman