paintrealglypheventty

type paintrealglypheventty = procedure(

  const sender: tcustomrealgraphdataedit;

  const acanvas: tcanvas;

  const avalue: real;

  const arow: Integer

) of object;