procedure charactersListBoxMeasureItem(Control: TWinControl; Index: Integer; var Height: Integer);

This is charactersListBoxMeasureItem, a member of class TForm1.