procedure Triangle(X1, Y1, X2, Y2, X3, Y3: Longint); procedure Triangle(X1, Y1, X2, Y2, X3, Y3: Longint; Color: DWORD);