Draws vertical line with current pen settings.
TImagingCanvas Class
public procedure VertLine(X: LongInt; Y1: LongInt; Y2: LongInt); virtual;