Рисование !)

[Weyner]

Доброго дня всем, такая вот проблема я сделал программу в который надо нарисовать ромб в ромбе круг, а в круге квадрат и заставить двигаться эту фигуру всю верх и вниз, я это все сделал но когда пришел показывать преподавателю он сказал чтобы круг и квадрат чтобы были вписаны как-то геометрическим способом а не методом подгонки, т.е чтобы в ромб был вписан круг а в круг вписан квадрат как показано на рисунке!
вот рисунок:
Вот эта часть программы которая отвечает за рисование:

procedure TFigure.Show;
var
  c: array [1..4] of TPoint;
begin

c[1].X:=x-size div 2;
c[1].Y:=y;
c[2].X:=x;
c[2].Y:=y-size div 2;
c[3].X:=x+size div 2;
c[3].Y:=y;
c[4].X:=x;
c[4].Y:=y+size div 2;

 canvas.Pen.Color:=ClBlack;
 Canvas.Brush.Color:=ClBlue;
 Canvas.Polygon(c);
 Canvas.Pen.Color:=Clblue;

 //canvas.Pen.Color:=ClBlack;
 //Canvas.Brush.Color:=Clwhite;
  //canvas.ellipse(250,250,150,150);



 canvas.Pen.Color:=Clblack;          
Canvas.Brush.Color:=Clwhite;
  {круг} 
Canvas.ellipse(x+size*4 div 11,y+size*4 div 11,x-size*4 div 11,y-size*4 div 11);



  canvas.Pen.Color:=ClBlack;
 Canvas.Brush.Color:=Clred;
{ квадрат}
canvas.Rectangle(x-size*3 div 12,y-size*3 div 12,x+size*3 div 12,y+size*3 div 12);

end;

Выделенные строчки кода жирным он говорит что эт подгонка и надо геометрически!!!!! я уже весь мозг ......))