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