[Snake22]

спасибо.половина работает)
а именно,одна ошибка гдето,
Sh1.left:=TShape(MySender).left-2 здесь left берётся не из объекта на который кликаю,а из пложение формы на экране.
может я MySender:=Sender; не туда вписал?
я его сюда :

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Sh:=TShape.Create(Self) ;
 <...>
  MySender:=Sender;
 

Апд: всё,разобрался как сендер работает!) его в процедуру NewSh надо вписывать.спасибо!