спасибо.половина работает)
а именно,одна ошибка гдето,
Sh1.left:=TShape(MySender).left-2 здесь left берётся не из объекта на который кликаю,а из пложение формы на экране.
может я MySender:=Sender; не туда вписал?
я его сюда :
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Sh:=TShape.Create(Self) ;
<...>
MySender:=Sender;
Апд: всё,разобрался как сендер работает!) его в процедуру NewSh надо вписывать.спасибо!