1. Метод не совсем подходит... поменяй заголовок процедуры на:
Код:
procedure TForm1.NewSh(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
...
end;
2. Опиши глобальную переменную: MySender:TObject
там на чем кликаешь: MySender:=Sender; А в NewSh пиши
Код:
Sh1.left:=TShape(MySender).left-2