Как масштабировать траекторию в TPaintBox пропорционально с формой?

#include <vcl.h>
#pragma hdrstop
#include "pOOP_Laboratory_Practice.h"
#include "uTrajectory.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmMain *frmMain;
TTrajectory *Trajectory;
//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::FormPaint(TObject *Sender)
{
TPoint p;
p.X = pboxWorkSpace->Width / 2;
p.Y = pboxWorkSpace->Height / 2;
   Trajectory->pntPBase = p;
       Trajectory->Draw();
 
 
 
 //    this->CliHeight = 100;
}
//---------------------------------------------------------------------------
 
void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
 // pboxWorkSpace->Height = this->ClientHeight;
  //     pboxWorkSpace->Width = this->ClientWidth / 2;
        Trajectory = new TTrajectory ();
        Trajectory->PaintBox =pboxWorkSpace;
        Trajectory->dubPDiametr =50;
}
//---------------------------------------------------------------------------
 
/*
void __fastcall TfrmMain::FormResize(TObject *Sender)
{
// pboxWorkSpace->Height = this->ClientHeight;
//  pboxWorkSpace->Width =this->ClientWidth / 2;
  Trajectory->pntPBase.X = pboxWorkSpace->Width * 0,5;
  Trajectory->pntPBase.Y = pboxWorkSpace->Height * 0,5;
 
}   */
//---------------------------------------------------------------------------
 
 
void __fastcall TfrmMain::FormResize(TObject *Sender)
{
pboxWorkSpace->Height = this->ClientHeight;
  pboxWorkSpace->Width =this->ClientWidth / 2;
TPoint p;
p.X = pboxWorkSpace->Width / 2;
p.Y = pboxWorkSpace->Height / 2;
   Trajectory->pntPBase = p;
 
//  Trajectory->pntPBase.X = pboxWorkSpace->Width * 0,5;
//  Trajectory->pntPBase.Y = pboxWorkSpace->Height * 0,5;
}
//---------------------------------------------------------------------------
 
void __fastcall TfrmMain::FromChange(TObject *Sender)
{
frmMain->Width = pboxWorkSpace->Width*2;
frmMain->Height = pboxWorkSpace->Height*2;