Source position: HTMLUn2.pas line 535
type TGetBitmapEvent = procedure(
Sender: TObject;
const SRC: ThtString;
var Bitmap: TBitmap;
var Color: TColor
) of object;