Egyenest rajzol (x1, y1) és (x2, y2) pontok között, a kiválasztott színnel és mintázattal.
procedure Line(const X1, Y1, X2, Y2: integer);