how to add shape in delphi 10 code example

Example: how to add shape in delphi 10

with TShape.Create(Self) do
    begin
     Name:='name here';
     Align:=alNone;
     Left:=10; */ make your own
     Top:=10; */ make your own
     Width:=100;
     Height:=100;
     Shape:=stRectangle;
     Brush.Style:=bssolid;
     Brush.Color:=clRed;
     Pen.Color:=clRed;
      Visible:=true;
      Enabled:=true;
      Parent:=Form1;
     end;