GDI+ Как создать любую фигуру, как единый объект

unit Unit5;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;
 
type
  TForm5 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form5: TForm5;
 
implementation
 
{$R *.dfm}
 
procedure TForm5.BitBtn1Click(Sender: TObject);
const drawemf:array [0..169] of integer=(08,01,06,02,04,03,03,04,02,06,01,08,01,12,02,14,
        03,16,04,17,06,18,08,19,12,19,14,18,16,17,17,16,18,14,19,12,19,08,18,06,17,04,16,
        03,14,02,12,01,-1,-1,08,03,07,04,06,04,04,06,04,07,03,08,03,12,04,13,04,14,06,16,
        07,16,08,17,12,17,13,16,14,16,16,14,16,13,17,12,17,08,16,07,16,06,14,04,13,04,12,
        03,-1,-1,10,10,03,10,10,09,03,09,10,08,03,08,10,07,04,07,10,06,04,06,10,05,05,05,
        10,04,06,04,10,03,-1,-1,10,10,17,10,10,11,17,11,10,12,17,12,10,13,16,13,10,14,16,
        14,10,15,15,15,10,16,14,16,10,17,-1,-1,-2,-2,00,00,00,00);
var PSA:array [0..100] of TPoint;
    PPA:array [0..10] of integer;
    Dc:HDc;j,ns,n,nb,x1,y1:integer;
begin
Dc:=Canvas.Handle;
n:=0;ns:=0;nb:=0;
for j:=0 to 100 do
   begin
   x1:=drawemf[j*2];
   y1:=drawemf[j*2+1];
   if x1=-2 then break;
   if x1=-1 then
      begin
      PPA[nb]:=n;inc(nb);n:=0;
      continue;
      end;
   PSA[ns].X:=100+x1-10;PSA[ns].Y:=100+y1-10;inc(n);inc(ns);
   continue;
   end;
PolyPolyGon(dc,PSA,PPA,nb);
end;
 
end.