Source position: HTMLUn2.pas line 522
type TImageOverEvent = procedure(
Sender: TObject;
Obj: TObject;
Shift: TShiftState;
X: Integer;
Y: Integer
) of object;