In dem Code sind ein paar Fehler, versuch mal den hier:
Delphi-Quellcode:
// xsonne:= round(radius* (xmitte+ cos(winkel/180)*pi)*100);
xsonne:= round(xmitte+radius*cos(winkel*pi/180));
// ysonne:= round(radius* (ymitte- sin(winkel/180) *pi)*100);
ysonne:= round(ymitte+radius*sin(winkel*pi/180));
edit: aber marabus code ist natürlich schöner
