Построить окружность в Delphi

[scorp93]

Нужно построить окружность с заданым радиусом, которая прикасается к двум прямым, которые пересикаются.

Помогите написать программу или подскажите алгоритм.

[Novi4ok_11]

Попробуйте так:

radius:=5;
Form1.Canvas.Ellipse(10,10, 10+radius*2,10+radius*2);
Form1.Canvas.LineTo(10,10+radius*2);
Form1.Canvas.LineTo(10+radius*2,10+radius*2);

Нету под рукой делфи просто(