Loading Icons from database wont free all resources.

Using this simple proc bellow result with still allocated resources realated
to the
 line "Icon.LoadFromStream(BlobStream);". when this line removed resourced
are deallocated properly.
("EmpJob1" is a table with a Blob field containing an Icon)

(The resource meter used: MemProof and AQTime)

procedure TForm1.BitBtn1Click(Sender: TObject);
var
   Qry        : TQuery;
   icon       : TIcon;
   BlobStream : TBlobStream;
begin
  Qry := TQuery.Create(nil);
  Qry.DataBaseName := 'office';
  Qry.Sql.Clear;
  Qry.Sql.Add('Select * From EmpJob1');
  Qry.Open;
  Qry.First;
  Icon := TIcon.Create;
  try
    BlobStream := TBlobStream.Create(Qry.FieldByName('JOB_ICON') as
TBlobField, bmRead);
    Icon.LoadFromStream(BlobStream);
  except
  end;
  Icon.Free;
  BlobStream.Free;
  Qry.Close;
  Qry.Free;
end;

Thanks
Chen.