Source position: mseshapes.pas line 66
type tagmouseprocty = procedure(
const tag: Integer;
const info: mouseeventinfoty
) of object;