Прив.
Люди, как создать ,допустим при нажатии кнопки, на форме компонент shape... к примеру rectangle? Чтобы можно потом ему ещё и свойства редакт ...
Добавлено @ 15:19
сорри ...рано послал ...ужо разобрался

А если кому интересно вот код:

var
Form1: TForm1;
x:TShape;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
//var x:TShape; {можно тут задать тип переменной}
begin
x:=TShape.create(self);
x.parent:=form1;//
x.left:=strtoint(edit1.text); {Координаты задаём
x.top:=strtoint(edit2.text); путём ввода в едит}
x.Width:=strtoint(edit3.Text); {Размеры
x.Height:=strtoint(edit4.Text); }
x.Shape:=stRectangle;
x.Brush.color:=clRed;

end;