procedure LineTo(x1: integer; y1: integer; x2: integer; y2: integer);

This is LineTo, a member of class BitmapGray.