Omg, der quelltext ist ja ein monster.^^
Wieso nicht einfach die
Unit Math einbinden?
Dort gibt es die Funktion ArcTan bzw ArcTan2. Du brauchst dann nur Arctan(y2-y1,x2-x1) aufzurufen, wobei y2/x2 die Y bzw X-Koordinate des Mittelpunktes des Kompasses, y1 und x1 die Position des Mauszeigers, sind, um den Winkel zwischen beiden im Bogenmaß zu erhalten. Dann bewegst du den Stift auf dem canvas per MoveTo zum Mittelpunkt des Kreises und zeichnest per LineTo zum Punkt (X=cos(winkel)*radius; Y=sin(winkel)*radius).