Как вписать эллипс в прямоугольник?

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
struct points
  {int x,y;
  TColor Color;
   void draw(TCanvas *cn);
   };
 
void points::draw(TCanvas *cn)
  {cn ->Pen->Color=Color;
   cn->Pen->Width=3;
   cn->Brush->Style=bsSolid;
   cn->Brush->Color=Color;
   cn->Ellipse(x+3,y+3,x-3,y-3);
  }
 
 struct ellips
  {points p1,p2,d1; TColor Color;
  void draw(TCanvas *cn);
  };
 
 
 void ellips::draw(TCanvas *cn)
  {d1.x=(p1.x+p2.x)/2 ;
   d1.y=(p1.y+p2.y)/2;
   cn ->Pen->Color=Color;
   cn->Pen->Width=3;
   cn->Brush->Style=bsClear;
   cn->Ellipse(p1.x,p1.y,p2.x,p2.y);
   cn->Brush->Style=bsSolid;
   cn->Brush->Color=Color;
   cn->Ellipse(d1.x+3,d1.y+3,d1.x-3,d1.y-3);
  }
 
  ellips* create(int n)
  {
   ellips *Ell;
   Ell= new ellips[n];
   return Ell;
   }
 
 
 void draw_ellips (int n, ellips **ell, TCanvas *cn)
  {int i;
     for (i=0; i<n; i++)
        ell[i]->draw(cn);
  }
 
  points** centers(int n, ellips**Ell)
  {
   int i;
   points **p;
   p=new points *[n];
   for (i=0;i<n;i++) p[i]=new points;
   for (i=0;i<n;i++)
   {
   p[i].x=(p1.x+p2.x)/2;
   p[i].y=(p1.y+p2.y)/2;
   p[i].color=Ell[i].color;
   }
   return p;
   }
 
   void draw_centres (int n, points **p, TCanvas *cn)
 
 
 void rand_ellipse (int n, ellips **Ell, points **pnts)
  {int i;
     for (i=0; i<n; i++){
     ell[i]->p1.x=random(600);
     ell[i]->p1.y=random(450);
     ell[i]->p2.x=random(600);
     ell[i]->p2.y=random(450);
     ell[i]->Color=(TColor)random(0xffffff);
     pnts[i]->d1.x=(p1.x+p2.x)/2;
     pnts[i]->d1.y=(p1.y+p2.y)/2;
     }
     }
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ellips **Ell;
  points **Pnt;
  int n =Edit1->Text.ToIntDef(5);
  int i;
  Ell= new ellips*[n];
  Pnt= new points*[n];
  for (i=0;i<n;i++)
   Ell[i]=new ellips;
   rand_ellipse(n,Ell,Pnt);
   draw_all(n,Ell,Pnt,Canvas);
  for (i=0;i<n;i++)
   delete Ell[i];
   delete []Ell;
}
//---------------------------------------------------------------------------