Adding shapes at runtime

Here is the correct way to design shapes at runtime.
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;
   end;

  Make notice of */ as comment. double / will make a wierd note

  from the above example you can modify your component.