Hallo Alex,
warum mischst du Canvas-Methoden und direkte
API-Aufrufe? TCanvas hat eine Methode Arc(), aber egal. MoveTo() ist an dieser Stelle wertlos, da AngleArc() die momentane Cursor-Position von TCanvas nicht kennt. Soll die Mitte vom Image der Punkt pt sein, in dem sich die beiden Virtelkreise berühren, dann sollte AngleArc(
Handle, pt.X, pt.Y - Radius, 0, 90) den unteren und AngleArc(
Handle, pt.X, pt.Y + Radius, 270, 0) den oberen Viertelkreis zeichnen.
Freundliche Grüße