Не сходится рисунок !)

[Weyner]

Короче, доброго всем вечера, такая вот проблемка, мне надо нарисовать ромб потом в ромб надо вписать круг а вкруг надо вписать квадрат! Вот я в круг вписал квадрат а в тоже время в ромб я не магу вписать круг!!!
Вот код :

//ромб
procedure TFigure.Show;
var
A:array[1..4] of TPoint;
begin
  a[1].X:=X;
  a[1].Y:=Y;
  a[2].X:=X+size div 2;
  a[2].Y:=Y+size div 2;
  a[3].X:=X;
  a[3].Y:=Y+size;
  a[4].X:=X-size div 2;
  a[4].Y:=Y+size div 2 ;
  Canvas.Pen.Color:=ClBlack;
  Canvas.Brush.Color:=ClRed;
  Canvas.Polygon(a);
//круг 
  Canvas.Brush.Color:=clWhite;
  Canvas.Ellipse(x-size div 4,y+size div 4,x+size div 4,y+size-size div 4);

//квадрат
  Canvas.Brush.Color:=clBlue;
  Canvas.Rectangle(Round(x-(size div 4)*cos(pi/4)),
  Round(y+size div 2 - (size div 4)*sin(pi/4)),
  Round(x+(size div 4)*cos(pi/4)),
  Round(y+size div 2 + (size div 4)*sin(pi/4)));

я вот думаю дело в ромбе все но не как не получается у меня!!!!