Изменение размеров рисунка при изменении размеров области вывода (окна)

unit Unit1;
interface
  uses Windows, Messages, SysUtils, Variants,Classes,Graphics,Controls,Forms,Dialogs,Math,StdCtrls;
type TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
end;
var Form1: TForm1;
implementation
{$R *.dfm}
 
procedure TForm1.FormPaint(Sender: TObject);
var
  mas_px: array of TPoint;
  i, r,r_1, pixel, x_0,y_0: Integer;
  ugol, ugol_1: Real;
begin
  pixel:=10;
  x_0:=ClientWidth div 2;
  y_0:=ClientHeight div 2;
  SetLength(mas_px, 5);
 
  ugol:=90; r:=200;
  for i:=0 to 4 do
  begin
    ugol:=ugol+(360/5);
    mas_px[i].X:=Round(x_0+r*cos((180*pi/180)+(ugol*pi/180)+2*pi*i/5));
    mas_px[i].Y:=Round(y_0+r*sin((180*pi/180)+(ugol*pi/180)+2*pi*i/5));
  end;
  Canvas.Pen.Width:=20;
  Canvas.Pen.Color:=clRed;
  Canvas.Polygon(mas_px);
 
  ugol_1:=-90; r_1:=84;
  for i:=0 to 4 do
  begin
    mas_px[i].X:=Round(x_0+r_1*cos((180*pi/180)+(ugol_1*pi/180)+2*pi*i/5));
    mas_px[i].Y:=Round(y_0+r_1*sin((180*pi/180)+(ugol_1*pi/180)+2*pi*i/5));
  end;
  Canvas.Pen.Width:=10;
  Canvas.Pen.Color:=clBlue;
  Canvas.Polygon(mas_px);
end;
end.

Canvas.FillRect(ClientRect);

r:=200;

// 1
  ugol:=90; r := Min(x_0, y_0) - 20; // Uses Math для Min ...
 
// 2
  ugol_1:=-90; r_1 := 3 * r div 10;