procedure TForm1.BitBtn1Click(Sender: TObject);
var
  perIBQuery:TIBQuery ;
  Stm: TMemoryStream;

begin
perIBQuery:=my_initialization_TIBQuery_insert(perIBQuery);
perIBQuery.Active:=false;
perIBQuery.SQL.Clear;
perIBQuery.SQL.Add('insert into INVENTORY_IMAGE '
                  +'('
                  +'IMAGE_ '
                  +')'

                  +' values '
                  +'('
                  +':perIMAGE_ '
                  +')' );


 Stm := TMemoryStream.Create;
 Image1.Picture.Graphic.SaveToStream(Stm);
 Stm.Position:=0;
 perIBQuery.ParamByName('perIMAGE_').LoadFromStream( Stm, ftBlob);  

 perIBQuery.ExecSQL;
 perIBQuery.Transaction.Commit;
 stm.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  perIBQuery:TIBQuery ;
  Ss  : TStringStream;
  St : string ;
  Code:word;
begin
perIBQuery:=my_initialization_TIBQuery_insert(perIBQuery); 
perIBQuery.Active:=false;
perIBQuery.SQL.Clear;
perIBQuery.SQL.Add ('select * from INVENTORY_IMAGE where ID =8' );
perIBQuery.Active:=true;
perIBQuery.Last;

st := perIBQuery.FieldByName('IMAGE_').AsString;
Ss := TStringStream.Create(st);

if Ss.Size > 0 then
  begin
  ss.Read(Code,SizeOf(Code));
  ss.Seek(0,0);
    case Code of
      $4D42: begin  //BMP
        Image1.Picture.Graphic:=TBitmap.Create;
        Image1.Picture.Graphic.LoadFromStream(Ss);
      end;
      $D8FF: begin   //JPEG
        Image1.Picture.Graphic:=TJPEGImage.Create;//TBitmap.Create;
        Image1.Picture.Graphic.LoadFromStream(Ss);
      END;
    end;
  end;
  Ss.Free;
end;