Опять геометрия в Delphi, Квадрат , окружность и треугольник Опции

[diehard]

Доброй ночи.

Собственно сижу вот ночью и никак не получается сделать 1 задачку , вот условие : Пользователь должен задать координаты центра окружности (X,Y) и Радиус ® окружности , вписать в неё квадрат , в квадрат - новую окружность , а в новую окружность равносторонний треугольник.

Пока получается только по заданным координатам и радиусу отрисовать окружность :

procedure TForm1.Button1Click(Sender: TObject);
begin
  x:=StrToInt(edit1.Text);
  y:=StrToInt(edit2.Text);
  r:=StrToInt(edit3.Text);
  with  listbox1.canvas do
   begin
   Arc(x-r,y-r,x+r,y+r,x-r,y-r,x-r,y-r);

end;

end;

как отрисовать остальные объекты непойму может быть кто то уже решал подобное ? читал FAQ и DRKB , но ничего подходящего не нашёл