Zeichnen einer farbigen Linie

[mimi]

habe gerade bemerkt das die Funktion ein kleinen BUG hat.

Leider kann man damit keine Vertikalen oder Horizontalen Linen Zeichnen.
Nur Schräge. bzw.
normalerweise
DrawColorLine(Paintbox1.Canvas,10,10,50,10,[clLime, ClRed, clBlue,clBlack,clWhite, clAqua],30);
müsste dieser Aufruf doch eine Horizontale Linen ergeben die 40 Pixel Lang/breit ist, oder nicht ?
wenn ich die erste 50 gegen 45 austausche geht es.... ich vermute ich müsste noch was mit dem Winkel machen richtig ?

Aber wie berechne ich einen Winkel und setzte ihn ein ?