----- Original Message -----
From: "Arno Brinkman" <firebird@...>
> 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 ?
Yes, but you can use directly qry.FieldByName( 'your_column' )

> What is cr ?

My error. Where you read cr read then qry(your query).