Delphi7 - как создать линии с единой точкой старта?

Всем привет. Продолжаю освоение Делфи и вот поймал ступор. Есть задание: нужно что бы пользователь вводил две координаты Х, У и эти координаты являлись бы точкой от куда бы выходили линии. В итоге должно получиться что-то вроде солнца (куча линий имеющих общую точку старта и разные концы). Мой код получился такой (пишу с комментариями): procedure TForm1.Button1Click(Sender: TObject); begin startX:=StrToInt(Edit1.Text); startY:=StrToInt(Edit2.Text); dX:=startX+100; // задаёт конечное значение для LineTo тобишь конечную точку dY:=startY+100; // тоже самое if (dX>0) and (dY>0) then // в системе координат Декарта это 1-вый квадрант тоесть что бы получился лучь надо от У отнять пиксель (в моём случает это 5 пикселей для большего шага) и к Х прибавить пиксель begin endX:=dX+5; endY:=dY-5; end; if (dX>0) and (dY<0) then // тот-же смысл для 3тьего квадранта begin endX:=dX-5; endY:=dY-5; end; if (dX<0) and (dY<0) then // для 4-того begin endX:=dX-5; endY:=dY+5; end; if (dX<0) and (dY>0) then // для 2-рого.. тобишь всё прописано по часовой begin endX:=dX+5; endY:=dY+5; end; Form1.Canvas.MoveTo(startX, startY); // начальная точка всех линий задаваемая пользователем for i:=1 to 200 do // процесс что бы он рисовал 200 линий begin Form1.Canvas.LineTo(endX, endY); end; end; end. Но увы не работает и не пойму в чём проблема. При вводе стартовой координаты просто рисует линию длинною 100 пикселей от заданных мною стартовых координат. Никакой процесс не идёт. П.С. можно не обязательно процесс, можно что бы при каждом след. клике конечная точка линии передвигалась в нужную позицию. Буду очень благодарен за помощь.