Fehler in einem Tutorial über Pfeil zeichnen ?

[thomas2009]

Hallo

ich habe das Tutorial getestet. Es ist aber Fehlerhaft und zwar
wenn ich versuche den Pfeil vertikal zu zeichnen
Das Problem liegt an Pfeil-Groesse
beim Vertikal zeichnen wird die Pfeil-Groesse immer etwa 15
d.h. egal wie viel ich eingebe, bleibt immer 15 !!!

Delphi-Quellcode:

    deltaX := 15 * Cos(B); // 15 is the length of the arrow
    deltaY := 15 * Sin(B);

Kann jemand mir helfen um den Fehler in Tutorial zu finden ?
Tutorial bein .swissdelphicenter :