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;