Рисование сектора

[Vistar]

У меня не получается нормально нарисовать сектор. Мне нужно рисовать его мышкой. В c_x и c_y я сохраняю центр сектора. Радиус задаю расстоянием от центра сектора к координатам мышки. Но куты построить не получается. Какой то неуправляемый сектор получается. Помогите написать куты по человечески. Я думаю что нада сделать чтобы начальный кут был 0, а конечный определялся мышкой. Тоисть если вести мышкой вокруг центра сектора (против часовой стрелки) с нулевого кута то конечный кут будет увиличиваться. Но записать это у меня не получается. Или может какой то другой способ рисования посоветуйте.
Заранее благодарен.

Procedure P_sector;
Var
   s_x, s_y: integer;{координаты центра сектора}
   radius: integer; {радиус сектора}

begin
   repeat
   begin
   SetColor(red);
   Rectangle(429, 9, 491, 41);
   SetColor(8);

      Manage_mouse;
      Inter_face;
      if mem <> nil then putimage(100, 50, mem^, 0);
      if mem = nil then Rectangle(100, 50, 460, 400);
      if (r.bx = 1) and (r.cx >= 100) and (r.cx <= 460) and (r.dx >= 50) and (r.dx <= 400) then
      begin
         s_x := r.cx; {начальные координаты сектора}
         s_y := r.dx; {начальные координаты сектора}
         repeat
         begin
            Manage_mouse;
            ClearDevice;
            if mem <> nil then putimage(100, 50, mem^, 0);
            Inter_face;
         radius := Distance_for_circle(s_x, s_y, r.cx, r.dx); //здесь определяется расстояние между центром сектора и координатами курсора.
         SetFillStyle(0,0);
         Sector(s_x, s_y, radius, round((radius / 360) * 100), radius, radius);
         Delay(4444);
         end
         until r.bx <> 1;
         Inc(n);
         With Picture[n] do
         begin
            x_min := s_x;
            y_min := s_y;
            x_max := r.cx;
            y_max := r.dx;
            type_of_pic := 'sector';
         end;
         Get;
      end;
   end
   until r.bx = 2;
   ClearDevice;
end;