[supernewbie]

1: result:=x+Round(len * cos((angle*pi)/180));
2: result:=y+Round(len * sin((angle*pi)/180));
меняешь местами cos sin и угол задается Y, обратно - X хм)
интересно)